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PREFACE 


This publication contains the system 
related information needed to install the 
IBM DOS/VS COBOL Compiler and its 
associated COBOL Object-time Subroutine 
Library. These program products operate 
under control of the IBM DOS/VS System and 
the Conversational Monitor System (CMS) 
component of VM/370 (Virtual Machine 
Facility/370). 


This publication is in two sections, 


each of which contains information related © 


to a specific system publication. You may 
insert each section in the related system 
publication if it makes your use of 
Gocumentation easier. The related system 
publications are: 


DOS/VS_ System Generation, Order 
No. GC33-5377 


DOS/VS_ Messages, Order No. GC33-5379 


The first section, “Program Product 
Installation," is directed to the system 
programmer or flanner responsible for the 
planning and/or implementation of system 
generation and maintenance. It contains 
information corresponding to that found in 
DOS/VS System Generation. The operating 
system requirements, minimum machine 
configuration, work file requirements, and 
IocS modules required for the DOS/VS 
compiler are described, as is the procedure 


Third Edition (January 1976) 


Guide for COBOL, Order No. 


for adding the DOS/VS COBOL Compiler and 
Subroutine Library to the IBM DOS/VS 
System. This section also contains storage 
requirements for the compiler and the 
library. 


The second section, "Diagnostic 
Messages," is directed to the system 
operator. It lists all messages issued by 
the DOS/VS compiler to the orerator's 
console. It is to be used by the operator 
in conjunction with DOS/VS Messages. 


CMS messages produced for DOS/VS COBOL 
are described in the "Using DOS COBOL Under 
CMS" section of IBM VM/370 CMS User's 
SC28-6469. 


ADDITIONAL PUBLICATIONS 


Within the text, references are made to the 
following publications: 


DOS/VS_ System Management Guide, Order 
No. GC33-5371 


DOS/VS_COBOL Compiler and Library 
Programmer's Guide, Order No. SC28-6478 


Virtual Machine Facility/370 Planning 


and System Generation Guide, Order 
No. GC20-1801 


This edition replaces the previous edition (numbered SC28-6479-1) and 
its technical newsletter (numbered SN20-9120) and makes them both 


obsolete. 


This edition applies to Release 2 of the IBM DOS/VS COBOL Compiler and 
Library and to all subsequent versions and modifications unless 


otherwise indicated in new editions or technical newsletters. 


Significant changes are summarized under “Summary of Amendments," 


following the title page. 
line to the left of the change. 


Each technical change is marked by a vertical 


Information in this publication is subject to significant change. Any 
such changes will be published in new editions or technical newsletters. 
Before using the publication, consult the latest IBM System/370 
Bibliography, GC20-0001, and the technical newsletters that amend the 
bibliography, to learn which editions and technical newsletters are 


applicable and current. 


Requests for copies of IBM publications should be made to the IBM branch 


office that serves you. 


Forms for readers' comments are provided at the back of the publication. 
If the forms have been removed, comments may be addressed to IBM 


Corporation, General Products Division, Programming 


Publishing--Department J57, 1501 California Avenue, Palo Alto, 


California 94304. 
IBM. 


All comments and suggestions become the property of 


© Copyright International Business Machines Corporation 1973, 1976 
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Summary of Amendments Number 2 


reece CR EE LL 


Date of Publication: January 9, 1976 
Form of Publication: Revision, SC28-6479-2 


CMS Support of DOS/VS COBOL 


New: Programming Feature 


Release 3 of VM/370 supports DOS/VS COBOL compilaton and execution 
under CMS. VSAM files are also supported. 


Summary of Amendments Number 1 


Date of Publication: March 1, 1974 
Form of Publication: Revision, SC28-6479-1 


Support of New CBL Statement Options 


New: Programming Feature 


Release 2 of the IBM DOS/VS COBOL Compiler and Subroutine Library supports 


the programmer productivity aid options VERBSUM/NOVERBSUM, VERBREF/ 
NOVERBREF, and COUNT/NOCOUNT. 


Support of LST Statement (Lister Feature) 


New: Programming Feature 


Release 2 also supports the lister, a portion of the compiler that processes pro- 
grams written in American National Standard COBOL to produce a reformatted 


source code listing with embedded cross-reference information and uniform 
indenting conventions. 


Miscellaneous Changes: Installation Procedures 


Maintenance: Documentation Only 


Corrections have been made throughout, particularly with reference to the 
installation procedures themselves. 
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INTRODUCTION 


The IBM DOS/VS COBOL Compiler ("the compiler") and Library is a Program 

| Product that operates under control of the IBM DOS/VS system or the 
Conversational Monitor System (CMS) component of VM/370. It contains 
the COBOL compiler, as well as the COBOL subroutines that, when 
required, are combined by the Linkage Editor with the object program 
produced by the compiler. It also contains a set of transient routines 
that can ke fetched dynamically into the user's storage area during 
program execution. And it contains a special set of COBOL statements 
that can be used to perform 3886 processing. It accepts as input any 
program written in DOS/VS COBOL. 


The DOS/VS COBOL Object-time Subroutine Library ("the library") 
associated with the DOS/VS compiler is also available as a separate 
Program Product. It contains COBOL subroutines that, when required, are 
combined by the Linkage Editor with the object program produced by the 
DOS/VS compiler. The subroutine library also contains a set of 
transient routines that can ke fetched dynamically into the transient 
area Or loaded dynamically into the user's storage area during program 
execution. 


Link edited programs that have been compiled by the DOS/VS COBOL 
compiler (5746-CB1) all require the presence of the DOS/VS COBOL Library 
at execution time. Note that a separate library may not be needed. The 
library packaged with the compiler can be used if the programs are 
executing on the same CPU as the one on which they are compiled or if 
they are executing under CMS; otherwise, there must be a separate 
library (5746-LM4) for each CPU on which the programs are executing. 


The CMS installation must order and install DOS/VS (Release 31 or 
later). If the DOS/VS COBOL programs access any VSAM data sets, DOS/VS 
VSAM and DOS/VS Access Method Services must also be installed. Then, 
the CMS installation must install the DOS/VS COBOL compiler and library. 
The compiler must be link edited in the background partition of DOS/VS, 
and all of the compiler's relocatable modules must be link edited using 
the ACTION REL linkage editor control statement. The compiler and 
library may reside on the DOS/VS system pack or on private libraries. 


The CMS installation must also execute special procedures called EXEC 
procedures to install the CMS/DOS and CMS/VSAM support on the CMS 
system. These EXEC procedures are described in the Virtual Machine 


Facility/370; Planning and System Generation Guide, Order 
Now GC20-1801. 


When the DOS/VS COBOL compiler is executed under CMS, it must be 
executed in the CMS/DOS environment. Before invoking the DOS/VS COBOL 
compiler or executing DOS/VS COBOL programs under CMS, be sure that the 
CMS/DOS environment has been previously generated into your CMS system 
and is active. Also, when the DOS/VS COBOL compiler and DOS/VS COBOL 
programs are executed under CMS, the DOS/VS system pack or private 
libraries must be available to CMS. 
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PROGRAM PRODUCT INSTALLATION 


This section contains the information you will need to add the IBM 
DOS/VS COBOL Compiler and its associated COBOL Object-time Subroutine 
Library to your DOS/VS Systen. 


The first part of this section, “System Requirements," describes the 
operating system requirements, minimum machine configuration, work file 
requirements, and LIOCS modules required by the compiler. The second 
part, “Installation Procedure," gives instructions for adding the 
compiler and the library to the system. The third part, "Storage 
Requirements," describes the amount of space required by the compiler 
and the library. 


SYSTEM REQUIREMENTS 


For DOS/VS, the compiler and the library operate under control of. the 
IBM Disk Operating System (DOS/VS). A DOS Release 29 system is the 
Minimum level required. The minimum machine configuration and operating 
system requirements to support the compiler and library are described in 
this section. Execution time considerations and special requirements 
for use of the Sort feature and the Symbolic Debug feature are also 
discussed. 


For CMS, the compiler and library are controlled by the CMS/DOS 
environment. A DOS/VS system pack or DOS/VS private libraries must be 
available for CMS/DOS use. CMS/DOS requires a DOS/VS Release 31 system 
as a minimum level. The minimum virtual machine configuration and 
operating system requirements to support the compiler and library under 
CMS are described in this section. The Sort feature is not supported 
under CMS. Other execution-time considerations are also discussed in 
this section. 


OPERATING SYSTEM REQUIREMENTS 


If the SORT or MERGE verb is used in the source program under DOS/VS and 
either the sort work files are on 3400 series tape units or on 3330/3333 
DASF, or the SORT-OPTION feature is used, or the ASCII-collating 
sequence is desired or numeric sort keys are separately signed numeric 
data items, the DOS/VS SORT/MERGE Program Product, Program Number 
5746-SM1, is required. For further information on this product see 
DOS/VS_SORT/MERGE Programmer's Guide, Order No. SC33-4018, and DOS/VS 
SORT/MERGE Installation Reference Material, Order No. SC33-4026. 


During link editing, modules produced by the compiler require 
subroutines from the library. In addition, subroutines from the library 
may be required during execution. Therefore, the library must also be 
part of the system used to control program execution. 


CMS requires access to the DOS/VS System pack or the private 


libraries that contain the DOS/VS COBOL compiler or subroutines. To 
make the system pack available at virtual address 195 as your C-disk 
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specify the filemode when the CMS/DOS environment is invoked: 


ACCESS 195 Cc 
SET DOS ON c 


To make private libraries at address 193 available, access the disk 


specifying some CMS mode letter such as D, and issue ASSGN and DLBL 
commands after the CMS/DOS environment is invoked: 


ACCESS 193 D 
SET DOS ON 

ASSGN SYSCLB D 
DLBL IJSYSCL D 
ASSGN SYSRLB D 
DLBL JJSYSKL OD 


DSN? (SYSCLB) 


DSN ? (SYSRLB) 


MACHINE CONFIGURATION FOR DOS/VS 


The minimum DOS/VS machine configuration required to use the DOS/VS 
COBOL compiler and library is: 


1. 


2. 


3. 


4, 


A System/370 model supported by DOS/VS. At least 60K must be 
available to the compiler. 


Six work files. 


The system logical unit SYSLNK must be assigned to a single area 
(extent) on a 2311, 2314, 2319, 3330, or 3340 mass storage device. 


Five programmer logical units (SYS001 through SYS005) must 
reside on 2400, 3410, or 3420 tape units, or On 2311, 2314, 2319, 
3330, or 3340 mass storage devices. (Two programmer logical units, 
as well as the operating system, must reside on a mass storage 
device.) 


If the four remaining logical units reside on tape, there must 
be a separate tape unit for each data set. If they reside ona 
mass storage device, there must be enough space on that device. 
See “Work File Requirements" for further information. 


Workfile assignments must be made as follows: 


SYS001 -- disk unit 

SYS002 -- disk or tape unit 

SYS003 -- disk or tape unit 

SYS004 -- disk or tape unit 

SYS005 -- disk or tape unit (required when Symbolic Debug is 
requested at compile time) 

SYS006 -- disk unit (required for FIPS) 


Note that SYSLNK need not be assigned at compile time unless the 
CATAL or LINK option is in effect. 


The filenames for SYSLNK and SYS001 through SYS006 on the TLBL 
or DLBL statements are IJSYSLN, IJSYS01, IJSYSO2, IJSYS03, IJSYSO4, 
IJSYSO5, and IJSYS06, respectively. 


A device for direct operator communication. 


A device, such as a card reader, for the job input stream. 
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°5. A device, such as a printer or tape unit, for system output files. 


6. The floating-point arithmetic feature, if floating point literals 
or calculations are used. 


Note: Ali devices currently supported by previous IBM DOS COBOL 
compilers are supported by the IBM DOS/VS COBOL Compiler. These 
include: 350473505 (with OMR), 3525 (with RCE and combined function 
processing), 3410/3420 Tapes, 3881 Optical Mark Reader, and 3330 Disk. 
The DOS/VS compiler also supports the 5425 Multifunction Card Unit, 2560 
Multifunction Card Machine, 3203 and 5203 Advanced Printers, 3886 
Optical Character Reader, 3340 Disk Facility, 3344 Direct Access 
Storage, 3350 Direct Access Storage in 3330-1 compatibility mode, and 
3540 Diskette Input/Output Unit. 


Execution-Time Consideration 


The amount of virtual storage must be sufficient to accommodate at 
least: 


e The selected control program. 
e Support for the file processing techniques used. 
e The load module to be executed. 


If symbolic debugging is requested, an additional work file, SYS005, 
must be assigned at compile time. This file must also be assigned at 
execution time if symbolic debugging control cards are present, though 
not necessarily to SYS005. 


If execution statistics or the 3886 Optical Character Reader feature 
are requested, additional virtual storage must be available to 
accommodate its dynamic space requirements. 


Use of the symbolic debugging, flow trace, statement number, 
execution statistics, option or the 3886 Optical Character Reader 
feature requires additional stcrage during execution. See IBM DOS/VS 


COBOL Compiler and Library Programmer's Guide for further information. 


Sort/Merge Feature Considerations 


The DOS/VS SORT/MERGE Program Product, Program Number 5746-SM1, must be 
executed under control of DOS/VS. It requires the following minimum 
machine configuration: 


1. The DOS/VS SORT/MERGE Program Product uses 16K bytes; an additional 
6K bytes are needed for DOS and for user-written routines. 


Note: Performance often increases significantly if 50K is 
available for operation of the Sort/Merge program. At the 100K 
level, the performance could be even higher. 


2. Standard instruction set. 

3. At least one 2314, 2319, 3330, 3333, or 3340 work file. (System 
residence requirements may necessitate having an additional disk 
storage unit for sorting.) 


4. One IBM 1403, 1443, 3203, 5203, or 3211 Printer, or one IBM 
operator communication device (for example, 3215). 
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5. One IBM 1442, 2501, 2520, 2540, 3505, 3525, or 2560 Card Reader, or 
one IBM 2400 or 3400 Series Magnetic Tape Unit (7- or 9-track) 
assigned to SYSIPT and SYSRDR. 


6. Three IBM 2400 or 3400 Series Magnetic Tape Units for work files 
when tape units are to be used for intermediate storage. For a 
merge operation, no work units are required. 


Symbolic Debug Considerations 


To use the Symkolic Debug feature of the DOS/VS compiler, a fifth work 
file (SYS005) is required at compile time. When symbolic debugging is 
requested, the compiler records in SYS005 the information needed to 
produce a symbolic formatted dump if the program terminates abnormally 
or if dynamic dumps are requested. Thus, the file assigned to SyS005 at 
compile time must also be assigned at execution time. This file need 
not necessarily be assigned to SYS005, but it must be assigned in the 
partition in which the program is executed. 


SYS005 can be allocated with the other system work files (SYS001, 
SYS002, SYS003, SYS004) at system generation time. Each COBOL source 
program requesting symbolic debugging then uses the same work file. 
However, unique symbolic debugging work file assignments are required 
when several COBOL programs are to be compiled in the same job. If 
there is only one SYS005 allocated for use by all COBOL programs, 
information recorded on the file during compilation of one program is 
overlaid by information placed there during compilation of a subsequent 
program. Then, when the object modules are link edited and executed, 
the information recorded during compilation will not be available if it 
has been overlaid. 


To avoid the loss of the information needed to produce a symbolic 
formatted dump, assign a unique symbolic debugging work file for each 
COBOL source program to be compiled. On a mass storage device, these 
symbolic debugging work files must be assigned to non-overlapping 
extents. The following example shows how to use ASSGN statements to 
define the symbolic debugging work file on disk. Note that the 
compilation step assigns this data set to SY¥S005; at execution, it is 
assigned to SYS006. 


4/7 JOB SAMPLE 
/4/ CPTION SYM,NODECK, NOLISTX, NOXREF, LINK 
4/7 ASSGN SYS005,X*1925 
// DLBL DEMOXX, 99/101,SD 
// EXTENT SYS005,111111,1,0,1100,50 
7/7 EXEC FCOBOL 
CBL SYMDMP 


(COBOL source deck) © 
4/7 EXEC LNKEDT 
4/ ASSGN SYS006,X*192' 
4/ UTLBL DEMOXX, 99/101,SD 
| 4/ EXTENT SYS006,111111,1,0, 1100, 50 
7/7 EXEC 
(SYMDMP control eavad} 
/* 
7& 
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If the symbolic debugging work file is defined as a tape, one 
physical reel is required. The file-protect ring must be in the tape 
reel during compilation and execution. 


FIPS Considerations 


SYS006 is required only for FIPS processing. After printing the 
header and any CBL card options on SYSLST, the compiler writes the 
compilation listing on SYS006 as input to the FIPS phases. The FIPS 
output is written on SYSLST. 


MACHINE CONFIGURATION FOR CMS 


The minimum CMS virtual machine configuration will support the DOS/VS 
COBOL compiler and library. 


1. A CMS virtual machine with a minimum of 320K of virtual storage and 
with the CMS/DOS environment active is required. The compiler uses 
at least 60K of CMS user storage. 


2. System and Logical Units. 


SYSIN/SYSIPT must be assigned to the device that contains the input 
source file. SYSIN/SYSIPT can be assigned to a reader, tape, or 
disk. 


The user can issue the ASSGN command for the following units: 


SYSPCH to tape, punch, disk, or IGN 
SYSLST to tape, printer, disk, or IGN 
SYSLOG to terminal 

SY¥S001-SYS002 to disk 

SYS003-SYS005 to tape or disk 

SYS006 to disk 


Notes CMS allows "disk" to also be the 3350 in native mode. CMS does 
not support the 3540 diskette, 2311 disks, or the 2321 datacell. If 
SYSIN/SYSIPT is unassigned at compilation time, the CMS/DOS COBOL 
interface issues an error message and terminates the FCOBOL command. 


If SYSPCH, SYSLST, SYSLOG, or SYS0001-SYSnnn is unassigned at 
compilation time, the CMS/DOS COBOL interface sends the output to the 
SYSIN disk (if SYSIN is assigned to a read/write disk) or to the user's 
A-disk. 


Note: SYSLNK must not be assigned; it is not supported as a system 
logical unit under CMS/DOS. 


3. Device Support 


The following devices, which are supported by DOS/VS, are not 
supported by CMS/DOS: 


e Card Readers: 1442, 2560P, 2560S, 2596, 3504, 5425P, and 5425S. 
e Disks: 3540, 2311, 2321. 
e Printers: 2560P, 2560S, 3203, 3525, 5203, 5425P, and 5425S. 


e Other Devices: 3881 OMR, 38860CR 
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Not all of the DOS/VS LIOCS modules are supported in CMS/DOS; see the 
"LIOCS Modules" section of this manual for more information. os 


Execution-Time Considerations 


If symbolic debugging is requested, an additional work file, SYS005, 
should be assigned at compile time. This file should also be assigned 
at execution time if symbolic debugging control statements are present, 
though not necessarily to SYS005. If the file is not assigned, the 
CMS/DOS_ COBOL interface directs the output to the SYSIN disk (if SYSIN 
is assigned to a read/write disk) or to the user's A-disk. 


The SORT verb is not supported in CMS/DOS. Also, COBOL programs that 
use ISAM or segmentation cannot be executed under CMS/DOS. 


WORK FILE REQUIREMENTS 


This section describes the work files required by the compiler. In 
addition to SYSRES and SYSLNK, which must be assigned to disk units, the 
compiler may require up to six work files: SyYS001, SYS002, SYS003, 
SYSO004, SYS005, and SYS006. SyYS005 is required only when the Symbolic 
Debug feature is requested. SYS006 is required for FIPS. Note: SYSLNK 
is not supported and must not be assigned for CMS/DOS. 


SYS001 and SYS006 must be assigned to a disk unit. Each of the other 
data sets (SYS002, SYS003, SYSO04, and SYS005) can be assigned to either 
a tape unit or a disk unit. 


If the work files are on tape, each must be assigned to a sitarave 
tape unit. If the work files are on disk, the amount of disk work space 
required depends mainly on the size of the source program. The 
approximate percentages of tracks that should be assigned to each work 
file are shown in Figures 1 through 4. Estimates are for programs of 
approximately 1000 and 2100 source records. The programs are assumed to 
request a cross-reference listing, the symbolic debug feature, and the ~ 
source program library facility (COPY and/or BASIS). Source programs 
with the library facility require the LIB option on the COBOL option 
card (CBL card). Programs using NOLIB require considerably less SYS004 
work space. 


For DOS/VS, work file assignments for the compiler must be made in 
each partition in which the compiler operates. For example, if the 
compiler can operate in either the background or the. foreground 1 (F1) 
partition, work file assignments must be made in both the background and 
F1. The CMS/DOS environment simulates only the background partition. 
CMS/DOS does not support the 2311. 


12 Order No. SC28-6479 


co? n X——wq«> LD 
| Number of | Total { SYS001 {| S¥YS002 | SYS003 | SYSO04 | SyYS0OS | 


| Source Records | Tracks | % { % { .% ( % { % { 
{ 1000 { 92 { 22 | 24 | 14 ( 34 | 6 | 
{ 2100 | 146 =| 16 | 19 { 14 | 44 { 7 | 
Figure 1. Approximate Allocation of Work File Space -- IBM 2311 
CSc ep ee nag a mA ey rer Ne Ree iS PRLS ee NL hae PON Ie |, come ee Ne OPN Poets peepee 
| Numker of | Total {| SYS001 { SYS002 | SYS003 | SYSO004 { SyYS005 | 
| Source Records { Tracks | % { % | % | % | % | 
| 1000 | 44 | 21 | 18 | 14 | 38 | 9 | 
{ 2 100 | 74 | 16 | 16 { 12 | 48 | 8 ( 
Figure 2. Approximate Allocation of Work File Space -- IBM 2314 
Number of | Total {| SYS001 | SYS002 { SYS003 | SYS0O4 | Sy¥S0O5 | 
| Source Records { Tracks | % | % { % { % ( % | 
| 1000 {| 28 { 118 | 22 | 1m | 39 { 7 | 
{ 2100 { 46 | 15 ( 17 | 13 | 48 { 7 | 


| En nS Senn ee ee | 
Figure 3. Approximate Allocation of Work File Space -- IBM 3330 


| ee REE Pe CT er ee es ier ere areas: | 
| Numker of { Total { SYS0O01 { SYSO002 | SYS003 { SYSOO4 { SYSOOS5S | 
| Source Records | Tracks | % | ) | ) | % | % { 
J fd 
| 1000 { 43 | 19 { 19 | mW 4 39 9 | 
Sa SF PP SP PS SS SO 
| 2100 | 72 { 15 | 17 { 13 | 48 ( 7 | 
| eS Ce Se eS ee | 
Figure 4. Approximate Allocation of Work File Space -- IBM 3340 


FIPS Work Files 


The number of tracks required for SYS006 (the FIPS input file) 
depends on the size of the source program and compiler options 
specified. As basic output, each record contains a line of the 
compilation listing and is 121 characters in length. However, 
additional space is required whenever each of the following options is 
specified: SYM, LISTX or CLIST, XREF or SXREF. SYS006 also contains 
any error messages issued by the compiler. 
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_LIOCS MODULES 


The following lists contain the names of the preassembled LIOCS modules 
used by the compiler. These modules are supplied by IBM as part of the 
relocatable library when the IBM DOS/VS System is distributed. Be sure 
that the modules listed are included in the system to which the compiler 
is added. ; 


Certain preassembled LIOCS modules are required when cataloging IBM 
components to the core image library. Do not delete these modules from 
the relocatable library until after all the IBM components have been 
cataloged to the core image library and all program products have been 
installed. These modules are listed in "Required IOCS Modules." 


Notes: 


1. Additional LIOCS modules (for ASCII processing) are distributed 
with the DOS/VS subroutines and are added to the relocatable 
library with the subroutines. These LIOCS modules are listed under 
"Relocatable Library" in the "Storage Requirements" section. 


2. CMS/DOS does not support all the DOS/VS logical transients, nor all 
the operands of the transients it does support. The CMS/DOS 
logical transient support is described in the VM/370 CMS User's 
Guide, Order No. GC20-1819. 


The procedure for generating the compiler for use with CMS/DOS is 
exactly the same as the procedure for generating it for use with DOS/VS: 
the LIOCS modules required are the same. CMS/DOS, during its open 
routines, checks that the file being opened is Supported by CMS/DOS. 


Relocatable Module Naming Conventions 


Each module has an 8-charactér name. The name consists of a 3-character 
prefix and a 5-character field corresponding to the option permitted in 
generation of the module. The following 3-character prefixes identify 
the preassembled modules shipped by IBM: 


1gc I/O Card (CDMOD) 

IJD I/O Printer (PRMOD) 

IJF I/0 Magnetic Tape (MTMOD) 

IJG Sequential Direct Access (SDMOD) 

IJH Index Sequential Direct Access (ISMOD) ? 
IJI Direct Access Method (DAMOD) 1 

IJJ Device Independent Access Method (DIMOD) 
IJN 3540 Access Method (DUMOD) ! 


tISMOD, DAMOD, and DUMOD are not supported for the CMS/DOS environment. 
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CDMOD 


CDMOD 
q 
a=F 
= U 
= V 
b=A 
= C 
= Y 
= Z 
c= B 
= C 
= H 
=I 
= N 
= 0 
d=B8B 
= 1 
= W 
= Z 
= Z 
e 


OSSMrPAGQHMAAMONWPWO AWA MN LSWNH@O 


un tt bk dt tt ht tb nnd nad na ean 


name = IJCabcde 


- RECFORM=FIXUNB (always for INPUT and CMBND files) 


RECFORM=UNDEF 
RECFORM=VARUNB 


CTLCHR=ASA (not specified CMBND) 
CCNTROL=YES 

CTLCHR=YES 

neither CTLCHR nor CONTROL is specified 


RDONLY=YES and TYPEFLE=CMBND 
TYPEFLE=CMBND 

RDONLY=YES and TYPEFLE=INPUT 
TYPEFLE=INPUT 

RDONLY=YES and TYPEFLE=OUTPUT 
TYPEFLE=OUTPUT 


WORKA=YES and IOAREA2=YES 
IOQAREA2=YES 

WORKA=Y ES 

neither WORKA nor IOAREA2 is specified 

WORKA is not specified (for CMBND files only) 


> 


DEVICE=2540 

DEVICE=1442 

DEVICE=2520 

DEVICE=2501 

DEVICE=2540 and CRDERR is specified 
DEVICE=2520 and CRDERR is specified 
DEVICE=3505 
DEVICE=3525 and FUNC omitted or FUNC=R or P 
DEVICE=2560 and FUNC omitted or FUNC=R or P 
DEVICE=5425 and FUNC omitted or FUNC=R or P 
DEVICE=3525 and FUNC=RP 

DEVICE=3525 and FUNC=RW 

DEVICE=3525 and FUNC=PW 

DEVICE=3525 and FUNC=I 

DEVICE=3525 and FUNC=RPW 

DEVICE=2560 and FUNC=RP 


' DEVICE=2560 and FUNC=RW 


DEVICE=2560 and FUNC=PW 
DEVICE=2560 and FUNC=I 
DEVICE=2560 and FUNC=RPW 
DEVICE=5425 and FUNC=RP 
DEVICE=5425 and FUNC=RW 
DEVICE=5425 and FUNC=PW 
DEVICE=5425 and FUNC=I 
DEVICE=5425 and FUNC=RPW 


2 
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CDMOD Names 


IJCFAOI1 
IJCFAOI4 
IJCFAOIS 
IJCFAOL7 
IJCFAOI8 
IJCFAOI9 
IJCFAOZ1 
IJCFAOZ4 


IJCFAOZ5 
IJCFAOZ7 
IJCFAOZ8 
IJCFAOZ9 
IJCFAOZA 
IJCFAOZC 
IJCFAOZE 
IJCFAOZF 
IJCFAOZH 
IJCFAOZI 
IJICFAOZJI 
IJCFAOZK 
IJCFAOZM 
IJCFAOZN 
IJCFAOZO 
IJCFCI 20 
IJCFC1Z1 
IJCFCI 22 
ISCFCIZ6 
. IJCFYOIO 
IJCFYOI7 


IJCFZIIO 
IJCFZIT1 
IJCFZII2 
IJCFZII3 
IJCFZII6 
IJCFZIIi7 
IJCFZII8 
IJCFZII19 
IJCFZIZO 


IJCFZ1I2Z1 
IJCFZI1Z2 
IJCFZ1I2Z3 
IJCF ZI Z6 
IJCFZ127 
IJCF2Z1Z8 
IJCFZ1IZ9 
IJCF2ZIZA 
IJCFZIZB 
IJCF ZI ZE 
IJICFZIZF 
IJCFZI ZG 
LICFZ1IZd 
IJCFZ1 ZK 
. IJCFZIZL 
IJCFZ1IZO 
IJCFZO11 
~IJCF2Z01I4 


IJCFZOI5 
IJCFZOI7 
IJCFZOI8 
IJCFZOI9 
IJCFZOID 
IJCFZ021 
IJCFZOZ4 
IJCFZOZ5 
IJCFZ0OZ7 
IJFCZOZ8 
IJCFZ0Z9 
IJCFZOZA 
IJCFZOZC 
IJCFZOZD 
IJCF ZOZE 
IJCFZOZF 
IJCFZ0ZH 


IJCFZO0Z1 
IJCFZOZJI 
IJCF ZOZK 
IJCFZOZM 
IJCFZOZN 
IJCFZ0ZO 


IJCUAOIL4 
IJCUAOI5 
IJCUAOI8 
IJCUAOI9 


IJCUAOZ1 
IJCUAOZ4 
IJCUAOZ5 
IJCUAOZ8 
IJCUAOZ9 
IJCUAOZF 
IJCUAOZH 
IJCUAOZI 
IJCUAOZI 
IJCUAOZK 
IJCUAOZM 
IJCUAOZN 
IJCUAOZO 


IJCcUZII8 


Igcuzii9g 
IJCUZIZ8 
IJCUZ1IZ9 
IJCUZIZF 
IJCUZIZG 
IJCUZIZI 
IJCUZIZK 
IJCUZIZL 


_ IJCUZIZO 


IJCUZOT1 
IJCUZOT4 
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IJcUzOoI5 
IJCUZOI7 
IJCUZOI8 


IJuUCZOII 
IJUCZOZ1 
IJUCZOZ4 


IJUCZOZ5 


IJUCZOZ7 
IJUCZOZ8 
IJUCZOZ9 
IJUCZOZF 
IJUCZOZH 
IJuCzZOZI 


' IJUCzZOZI 


IJUCZOZK 
IJUCZOZM 


IJUCZOZN 
IJUCZOZO 


IJCVAOI1 
IJCVAOT4 


IJCVAOI5 
IJCVAOI8 
IJCVAOI9 
IJCVAOZ1 
IJCVAOZ4& 
IJCVAOZ5 
IJCVAOZ8 
IJCVAOZ9 


IJCVAOZF 
IJCVAOZH 
IJCVAOZI 


IJCVAOZJ 


IJCVAOZK 
IJCVAOZM 
IJCVAOZN 
IJCVAOZO 


IJcvz1Iis 
IgcvZ119 
IJCVZ1IZ8 
IJCVZ1IZ9 
IJCVZIZF 
IJCVZIZG 
IJCVZIZI 
IJCVZ1IZK 
IJCVZIZL 
IJCVZIZO 


Igcvzor 
IJCVZOI4 
IJCvzor5 
IJCVZOI7 
IJCVZOI8 


IJCVZOI9 


IJCVZOZ1 
IJCVZOZ4 
IJCVZOZ5 
IJCVZ02Z7 
IJCVZ0Z8 
IJCVZ0Zz9 
IJCVZOZF 
IJCVZOZH 
IgcvzozI 
IICVZOZI 
IJCVZOZK 
IJCVZOZM 
IJCVZO2ZN 
IJCVZOZO 


DAMOD name 


ion 
oi | 
NW HbR N YB <M 


No Om 


NK >» = 


DAMOD Names 


IJIBAT RZ 


IJIBAI ZZ 
IJIBAZRZ 
IJIBAZZZ 
IJ IBZIRZ 


IJIBZIZZ 
IJIBZZRZ 
IJ IBZZ2Z 
IJIFAIRZ 
IJ IFAIZZ 


IJIFAZRZ 
IJIFAZZZ 
IJIFZIRZ 
IJIF ZI 2Z 
IJ IFZZRZ 


= IJIabcde 


RECFORM=UNDEF (handles both UNDEF and FIXUNB) 
RECFORM=F IXUNB 

* RECFORM=SPNUNB 
RECFORM=VARUNB 


AFTER=YES 
AFTER is not specified 


IDLOC=YES and FEOVD=YES 
I DLOC=YES 

FEOVD=YES 

neither is specified 


ERREXT=YES and RELTRK=YES 
ERREXT=YES 

RELTRK=YES 

neither is specified 


HOLD=YES and RDONLY=YES 
HOLD= YES 

RDONLY=YES 

neither is specified 


IJIFZ2Z2zZ 
IJISAIRZ 
IJISAITZZ 
IJISAZRZ 
IJISAZ ZZ 


IJISZIRZ 
IJISZ1IZZ 
IJISZZRZ 
IJISZZZZ 
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DRMOD 


CRMOD name = IJMZabp0 


a= S SETDEV = YES 
= Z2 SETDEV = NO 
b = R_ RDONLY =. YES 
= Z RDONLY = NO 


DRMOD Names 


IJMZSRDO 
IJMZSZDO 
IJMZZRDO 
IJMZ2ZZD0 


DUMOD 


DUMOD name = IJNDabcZ 


a input 


=<] 
=O output 
Cc 


o 
TT 


ERROP T=name 


c = 2 RDONLY not specified 


DUMOD Names 


IJNDICZZ 
IJNDOCZZ 
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ISMOD 


ISMOD name = IJHabcde 
a = A RECFORM=BOTH and IOROUT=ADD or ADDRTR 
= B RECFORM=FIXBLK and IOROUT=ADD or ADDRTR 
= U RECFORM=FIXUNB and IOROUT=ADD or ADDRTR 
= Z RECFORM is not specified and IOROUT=LOAD or RETRVE 
b = A TOROUT=ADDRTR 
= I IOROUT=ADD 
= L ICROUT=LOAD 
= R  ITOROUT=RETRVE 
c = B TYPEFLE=RANSEQ 
= G IOAREA2=YES and TYPEFLE=SEQNTL or IOROUT=LOAD 
= R TYPEFLE=RANDOM 
= S TYPEFLE=SEQNTL 
= Z neither is specified and IOROUT=LOAD or ADD 
d = C CORINDX=YES 
= Z CORINDX is not specified 
e = F CORDATA=YES, ERREXT=YES, and RDONLY=YES 
= G CORDATA=YES and ERREXT=YES 
= O CORDATA=YES and RDONLY=YES 
= P CORDATA=YES 
= S ERPEXT=YES and RDONLY=YES 
= T ERREXT=YES 
= Y RDONLY=YES 
= Z nothing is specified 
ISMOD Names 
IJHAARCP IJHUABZZ 
IJ HAARCZ IJHUARCP 
IJHAARZP IJHUARCZ 
IJHAARZZ IJHUARZP 
IJHBABCP IJHUARZZ 
IJ HBABCZ IJHZLG2ZZ 
IJHBABZP IJHZLZ2ZZ 
IJHBABZZ IJHZRECZ 
IJHBARCP IJHZRB2ZZ 
IJHBARCZ 
IJHBARZP IJHZRGZZ 
IJHBARZZ IJHZRRZZ 
IJHUABCP IJHZRS2ZZ 
IJHUABCZ 
IJHUABZP 
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MTMOD 


MTMOD name = IJFabcde 


‘a 


= F RECFORM=FIXUNB or FIXBLK . 

= S RECFORM=SPNUNB or SPNBLK 

= U RECFORM=UNDEF 

= V RECFORM=VARUNB or VARBLK 

= X ASCII RECFORM=FIXUNB or FIXBLK 

= N ASCII RECFORM=UNDEF 

= R ASCII RECFORM=VARUNB or VARBLK 
b = B READ=BACK 

= Z READ=FORWARD, or READ is not specified 
c = C CKPTREC=YES 

= Z CKPTREC is not specified 
ad = W WORKA=YES 

= Z WORKA is not specified 
e = M ERREXT=YES and RDONLY=YES 

= N ERREXT=YES 

= Y RDONLY=YES 

= Z neither is specified 


MTMOD Names (See “Relocatable Library" in the "Storage Berimatess 
section for additional MTMOD modules.) 


IJ FFBZZN 
IJFF ZC ZZ 
IJ FF2Z222Z 
IJFSZZWN 
IJ FUZZZN 


IJFUZZ2ZZ 
IJFVZZ2ZN P 
IJFVZZZ2 
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ys 


Name list for workfile type modules (TYPEFLE=WORK) : 


MTMOD name = IJFabcde 


a= 


b= 


WwW 


NK ZE N NQZ NB 


always 


ERROPT= YES 
ERROPT is not specified 


NOTEPNT=YES 
NCTEPNT=POINTS 
NOTEPNT is not specified 


always 


ERREXT*YES and RDONLY=YES 
ERREXT=YES 

RDONLY=YES 

neither is specified 


System I/O Modules 
(See “Required IOCS Modules" before deleting modules with the IJF 
prefix.) 


IJFWEZ 22 
IJFWZNZZ 
LJ FW2222 
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PRMOD 


PRMOD 


a F 
Vv 
U 


fowou 


NCGQHNnNAK DS 


Hii dt tone at iad uw nw te ue tt 
SSEQcHn as ONMOON HH 


NH 


hott 


NK E< 


hou wu 


name 


IJDabcde 


RECFORM=FIXUNB 
RECFORM=VARUNB 
RECFORM=UNDEF 


CTLCHR=ASA 
CTLCHR=YES 
CONTROL=YES 
STLIST=YES 
D EVICE=3525 
DEVICE=2560 
DEVICE=5425 


with 2-line printer 


neither CTLCHR nor CONTROL nor STLIST is specified 


PRINTOV=YES, 
PRINTOV=YES, 
PRINTOV=YES, 
PRINTOV=YES, 
PRINTOV=YES, 


ERROPT=YES and PRINTOV=YES 


PRINTOV=YES 
PRINTOV=YES 


DEVICE not 3525 
DEVICE=3525, 
DEVICE=3525, and FUNC=RW[T] 
DEVICE=3525, and FUNC=PW[T ] 
DEVICE=3525, and FUNC=RPW[T ] 
not specified 
and DEVICE not 
DEVICE=3525, 


not 
not 


specified, 
specified, 


Or FUNC=W[T] 


PRINTOV=YES 
PRINTOV=YES 
PRINTOV=YES 
DEVIC E=2560 
DEVICE=2560 
DEVICE=2560 
DEVIC E=2560 


I CAREA2=YES 


TOAREA2 is not 


RDONLY=YES and 


WORKA=YES 
RDONLY=YES 


not specified, 
not specified, 
not specified, 
or 5425 and FUNC=W or omitted 
or 5425 and FUNC=RW 
or 5425 and FUNC=PW 


or 5425 and FUNC=RPW 


specified 


WO RKA= YES 


neither is specified 


PRMOD Names 


IJ DFAP IZ 
IJDFAPZZ 
IJDF YPIZ 
IJDFYP2Z2Z 
IJDFZPIZ 


IJDFZP2Z 
IJ DUAPIZ 
IJDUAP 2Z 
IJDUYPIZ 
IJDUYPZZ 


IJDF UU ZZ 
IJ DFUU IZ 
IJDFUV Zz 
IJDFUVIZ 
IJDF UWZZ 
IJ DF UW IZ 
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IJDUZPIiZ 
IJDUZPZZ 
IJDVAPIZ 
IJDVAPZZ 
IJDVYPIZ 


IJDVYPZZ 
IJDVZPIZ 
IJDVZPZZ 


IJ DVUUZZ 
IJDVUUIZ 
IJDVUVZZ 
IJDVUVIZ 
IJ DVUWZZ 3 
IJDVUWIZ 
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and FUNC Omitted or FUNC=W[T] 


3525 


and FUNC omitted 


DEVICE=3525, and FUNC=RWT] 
DEVICE=3525, and FUNC=PW TJ 
DEVICE=3525, and FUNC=RPWT] 


IJ DUUUZZ 
IJDUUUIZ 
IJDUUVZZ 
IJDUUVIZ 
IJ DUUWZZ 
IJDUUWIZ 


IJDFUXZZ 
LIJDFUXIZ 


LIDFAOIZ 
IJDFARIZ 
IJ DFAS IZ 
IJDFATIZ 


IJDFAOZZ 
IJ DFARZZ 
IJDFASZZ 
IJ DFATZZ 
IJDFZO1IZ 
IJDFZRIZ 
IJDF2ZS1Z 
IJDF2T IZ 
IJDF Z022 
IJDFZRZZ 
IJDFZSZZ 
LJIDFZT2ZZ 


IJDFATIZ 
IJDFAF IZ 
IJDFACIZ 
IJDFADIZ 


IJDF ZI1Z 
LIDFZF IZ 
IJDFZC1IZ 
IJDFZD IZ 


LIDFYIIZ 
IJDF YF IZ 
LIDFYCIZ 
IJDF YDIZ 


IJDFVU ZZ 
IJDFVUIZ 
IIDFW2Z 
IJDFVWVIZ 
IJDFVWZZ 
LJDFVWIZ 
IJDFVX2Z 
IJ DFVX1z 
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IJDVUXZZ 
IJDVUKIZ 


IJDVAOIZ 
IJDVARIZ 
IJDVASIZ 
IJDVAT IZ 


IJDVAOZZ 
IJDVARZZ 
IJDVAS ZZ 
IJDVATZZ 
IJDVZOIZ 
IJDVZR1IZ 
IJDVZS IZ 
IJDVZT1IZ 
IJDVZO0ZZ 
IJDVZRZZ 
IJDVZSZZ 
IJDVZTZZ 


IJDUATIZ 
IJ DUAFIZ 
IJDUACIZ 
IJDUADIZ 


IJDUZIIZ 
IJDUZFI1Z 
IJDUZCIZ 


IJDUZDIZ 


IJDUYIIZ 
IJDUYF1Z 
IJDUYCIZ 
IJDUYDIZ 


IJDVVUZZ 
IJDVVUIZ 
IJDVVV ZZ 
IJDVVVIZ 
LJDVVW2Z 
IJDVVWIZ 
IJ DVVXZZ 
IIDVVX1IZ 
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IJ DUUXZZ 
IJDUUXIZ 


IJDUAOIZ 


IJDUARIZ 
IJDUASIZ 
IJ DUATIZ 


IJ DUAOZZ 
IJDUARZZ 
IJ DUASZZ 
IJDUATZZ 
IJDUZOIZ 
IJDUZRIZ 
IJDUZSIZ 
IJDUZTI1IZ 
IJ DUZOZZ 
IJDUZRZZ 
IJDUZS2ZZ 
IJDUZTZZ 


IJDVAIIZ 
IJ DVAFIZ 
IJDVACIZ 
IJ DVADIZ 


IJDVZ1I1IZ 
IJDVZFIZ 
IJDVZCIiZ 
IJDVZDIZ 


IJDVYIIZ 
IJDVYF1IZ 
IJDVYCIZ 
IJDVYDIZ 


IJ DUVUZZ 
IJDUVUIZ 
IJDUVVZZ 
IJDUVW IZ 
IJ DUVWZZ 
IJDUVWIZ 
IJDUVXZZ 


IJDUVXIZ 
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SDMOD 


SDMODxx name = IJGabcde 


RECFORM=FIXUNB or 
RECFORM=FIXUNB or 
RECFORM=SPNUNB or 
RECFORM=SFNUNB or 
RECFORM=UNDEF and 
RECFORM=VARUNB or 
RECFORM=UNDEF and 
. RECFORM=VARUNB or 


a 


NHIQ GOH SanwowNHN 


SDMODxI 
S DMODxO 
SDMOD xU 


ERROPT=YES 


TRUNCS=YES 
F EOVD=YES 


NESE 


CCNTROL=YES 
RDONLY=YES 


NK OQ & 


SDMOD Names 


IJGFIEWZ 
IJ GFOEWZ 
IJGFUEWZ 
IJ GQ IEWZ 
IJGQOEWZ 


IJGQUEWZ 
LJ GU IEWZ 
IJGUOEWZ 
IJ GUUEWZ 
IIGVIEWZ 


IJGVOEWZ 
IJ GVUEWZ 
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FIXBLK and HOLD=YES 

FIXBLK and HOLD is not specified 
SPNBELK and HOLD=YES 

SPNBLK and HOLD is not specified 
HOLD=YES 

VARBLK and HOLD=YES 

HOLD is not specified 

VARBLK and HOLD is not specified 


ERROPT=YES and ERREXT=YES 
neither is specified 


TRUNCS=YES and FEOVD=YES 


neither is specified 


CONTROL=YES and RDONLY=YES 


neither is specified 


NAME LIST FOR WORKFILE TYPE MODULES (TYPEFLE=WORK) 


SDMODxx name = IJGabcde 


a T SDMODW specifies HOLD=YES 


SDMODW does not specify HOLD=YES 


Wow 
= 


C ERROPT=YES and ERREXT=YES 
E ERROPT=YES 
Z neither is specified 


N NOTEPNT=YES 
R NCTEPNT=PCINT RW 
Z NOTEPNT is not specified 


CONTROL=YES 
CONTRCL is not specified 


Q 
uo 
Na 


{T RDONLY=YES and UPDATE=YES 
U UPDATE=YES 

Y RDONLY=YES 

Z neither is specified 


System I/O Modules 
(See “Required IOCS Modules" before deleting modules with the IJG 


prefix.) 


IJGWEZZU 
IJGWEZ ZZ 
IJGWZN ZZ 
IJGWZRZZ 


Required I0CS Modules 


The following preassembled IOCS modules are required when cataloging IBM 
components to the core image library. These modules are also required 
when installing program products. 


Module Names 


IJ FWEZZZ IJJCPD1N 
IJFW2ZNZZ IJJCPD2 
IJ FW2Z22Z IJJCPD3 
IJGFIETZ IJJCPV 
IJGWEZ ZU IJJCPV1 
IJGWEZ2ZZ IJJCPV2 
LIGWZNZZ IJJCPO 
LIIGWZRZZ IJJCPON 
LJIJCPA1N IJJCP1 
IJJCPDV IJJCP1N 
IJJCPDV1 IJJCP2 
IJJCPDV2 IJJICP3 
IJJCPDO 

IJJCPDON 

IJJCPD1 
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INSTALLATION PROCEDURE. 


To add the DOS/VS Compiler and the Library to your system, follow the 
procedure described in this section. The method used to install the 
compiler and the library depends on the medium on which each was 
received. For the procedures pertinent to your installation, refer to 
the appropriately named section below. ; 


e Installation from Tape 
e Separate Library Installation from Tape 
e Installation from Disk 


e Separate Library Installation from Disk 


The system to which the compiler and library are to be added must 
include the required I0CS modules (listed in "IOCS Modules") as well as 
the DSTRB and Maintenance utility programs. System generation factors 
that can affect compiler execution are discussed below. If the compiler 
and library are to be used in a foreground partition, special 
preparation is necessary. See "Foreground Installation Considerations" 
for the steps required. 


Note: The CMS/DOS environment simulates only the background partition. 
Therefore, the compiler must be generated for use in the background 
partition with ACTION REL if it is going to be used in CMS/DOS. 


Preparing the DOS/VS System Libraries 


Before actually installing the compiler and/or library subroutines, you 
may have to prepare the DOS/VS system libraries. During installation, 
the compiler and subroutines replace any IBM American National Standard 
COBOL Compiler and Subroutine Library already existing in the library to 
which they are added. Therefore, to preserve an existing version of the 
IBM American National Standard COBOL Compiler and Subroutine Library, 
you must move them to a private library before adding the DOS/VS 
compiler and subroutines to the system libraries or add the DOS/VS 
compiler and subroutines to a private library during installation. 


To replace an existing version, use the "Storage Requirements" 
section to determine if sufficient space is available for the DOS/VS 
compiler and subroutines. If there is enough space in the library, no 
preparation for installation is necessary. If not, the existing version 
should be deleted and the libraries condensed. The following examples 
show how to delete an earlier compiler and subroutine library and then 
condense the system libraries. These jobs must be run in the 
background. 
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47 JOB DELETE 

47 EXEC MAINT 
DELETC FCOB.ALL 
DELETC ILBD.ALL 
DELETC $$BCOBER 
DELETC $$BCOBR1 
DELETC $$BFCMUL 
DELETC $$BCOB EM 
DELETR ILA. ALL 
DELETR ILB.ALL 

/* 

76 


// JOB CONDENSE 
// EXEC MAINT 
CONDS CL 
CONDS RL 
1* 
/6 


The output from this job will indicate the number of available blocks 
remaining in each library. 


System Generation Considerations 


The compiler and library can be used on a system only if the following 
parameters are specified for the SUPVR and FOPT macro instructions 
during system generation: 


SUPVR: SYSTEM=DISK 


ASCII=YES (required only when the ASCII features of the 
compiler are used) 
MPS=BJF (required only when the compiler is to be executed 
. in the foreground) 
FOPTs AB=YES (for use of STATE, FLOW, STXIT, SYMDMP, and COUNT 
features) 
PCIL=YES (required only when the compiler is to be executed 


in the foreground) 
GETVIS=YES (required for use of 3886; forced by VSAM=YES, 
and required if COUNT option is specified) 


VSAM : VSAM=YES (required for use of the VSAM feature) 


If PCIL=YES is specified with MPS=NO or MPS=YES, private core image 
library support is provided for background only. When MPS=BJF is 
specified, a private core image library can be assigned either to the 
background or to a foreground partition; it cannot be assigned to more 
than one partition. 


FOPT=SYSFIL must also have been specified during system generation if 
system files on disk are to be used. 


System options selected at system generation enable you to tailor the 
DOS/VS compiler to fit your installation's needs. The system options 
that can be used to control compiler processing specify whether: 

e control statements are to be written on SYSLST. 
e A dump is to be written on SYSLST if an abnormal termination occurs. 


(You may not want this if the SYMDMP, STATE, or FLOW features are 
used.) 
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e The object module produced by the compiler is to be link edited. 
e An object deck is to be punched. 
e The COBOL source statements are to be written on SYSLST. 


e A Procedure Division map, Data Division map, or cross-reference 
listing is to be written on SYSLST. 


e Diagnostic messages for the source program are to be written on 
SYSLST. 


Instructions for specifying these options are given in the 


publications DOS/VS System Generation and DOS/VS COBOL Compiler and 
Library Programmer's Guide. 


CHANGING THE INSTALLATION DEFAULTS 


To change the compiler default values to suit your installation, a new 


member, C.CBLOPTNS, must be added to the source statement library. This 


module must contain CBL and LST option cards defining the desired 
defaults. These may be overridden at compilation time by supplying a 


CBL and/or LST statement in the compiler input stream. CMS/DOS does not 


support the LST statement. 


CBL_ Statement -~- COBOL Option Control Statement 


Although most options for compilation are specified either at system 
generation time or in the OPTION control statement, the COBOL compiler 
provides an additional statement, the CBL statement, for the 
specification of compile-time options unique to COBOL. 


The CBL statement must be placed between the EXEC FCOBOL statement 
and the first statement in the COBOL program. The CBL statement cannot 
be continued. However, if specification of options will continue past 
column 71, more than one CBL card image may be used. 


The options shown in the following format may appear in any order. 
No embedded blanks may appear in the operand field. Underscoring 
indicates the default value. No comments should appear in the operand 
field. 
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{ , SEQ , FLAGW , SUPMAP ,LVL=c { 
{CBL ({ BUF=nnnn j |, NOSEQ 7 FLAGE ¢ NOSUPMAP { »-SPACEn } e NOLVL | 
| | 
{| ({,CLIsT , OlxXIT , QUOTE ¢ TRUNC ¢ 2WB [ » SYNTAX | 
{ [NOCLIST @NOSTXIT || ,APOST « NOTRUNC »NOZWB eCSYNTAX || 
| ,NOSYNTAX || 
| | 
| {/SXREF . [ OPTIMIZE 7 OTATE { 
| |,NOSXREF {,PMAP=h] | ,NOOPTIMIZE ( -FLOW{=nn]] [|,NOSTATE | 
{ ,OPT { 
| ,NOOPT 
| 
{| €.SYMDMP[ =filename]]} sCATALR , LIB 7 VERB ( 
{ 7s NOCATALR NOLIB »NOVERB | | 
| { 
{ [,VERBSUM « VERBREF ,COUNT { 
{| (,NOVERBSUM s NOVERBREF ; NOCOUNT | 


CBL 
must begin in column 2 (column 1 must be blank) and be followed by 
at least one blank. 


BUF=nnnnn 
the BUF option specifies the amount of storage to be assigned to 
each compiler work file buffer (i.e., the block sizes of the work 
files). mnnnn is a decimal number from 512 to 32,767. If this 
Option is not specified, 512 is assumed. Performance is affected 
by the use of this option, and the amount specified should be 
tailored for best performance for the work file devices used. 
Maximum performance is usually achieved by specifying the buffers 
as large as possible. 


SEQ 

NOSEQ 
indicates whether or not the compiler is to check the sequence of 
source statements. If SEQ is specified and a statement is not in 
sequence, it is flagged. If lister is invoked also, the original 
card sequence numbers may be resequenced, thus not providing the 
sequence check desired. 

FLAGW 

FLAGE 
determines which diagnostic messages the compiler will list. FLAGW 
indicates that all diagnostic messages will be listed (severity 
levels W, C, E, and D). FLAGE indicates that only those diagnostic 
messages with severity levels C, E, and D will be listed. This has 
no effect on FIPS messages. 

SUPMAP 

NOSUPMAP 
causes the CLIST and LISTX options to be suppressed if an E-level 
diagnostic message is produced by the compiler. SUPMAP also 
suppresses the DECK option, and no object module is produced. 

SPACEn 


indicates the line of spacing to be used on the output listing. 
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LVL=c 
LVL=NO 


Es 


can be specified as 1 (single spacing), 2 (double spacing), or 3 
(triple spacing). If the SPACEn option is omitted, single spacing 
is provided. 


indicates whether the compiler should identify COBOL clauses and 
statements in a DOS/VS COBOL source program that do not conform to 
the Federal Information Processing Standard. FIPS recognizes four 
language levels: low, low-intermediate, high-intermediate and 
full. The FIPS Flagger provides four levels of flagging frcm low 
(A) to high (D) to conform to the four levels of the FIPS. 


CLIST 
NOCLIST 


indicates that a condensed listing is to be produced. The 
condensed listing contains only the address of the first generated 
instruction for each verb in the Procedure Division. [In addition, 
global tables, literal pools, register assignments, and procedure 
block assignments are provided. The CLIST option overrides the 
LISTX or NOLISTX options. ‘The LISTX or NOLISTX options are either 
established at system generation time or specified in the OPTION 
control statement. 


STXIT 
NOSTXIT 


enables a USE AFTER STANDARD ERROR declarative to receive control 
when an input/output error occurs on a unit record device. The use 
of STXIT precludes the use of SYMDMP, STATE, and FLOW in the 
compiled program and in any other program link-edited with the 
compiled program, and vice versa. 


QUOTE 
APOST , 


QUOTE indicates to the compiler that the double quotation marks (") 
should ke accepted as the character to delineate literals; APOST 
indicates that the apostrophe (') should be accepted instead. The 
compiler will generate the specified character for the figurative 
constant QUOTE(S). 


TRUNC 
NOTRUNC 


applies only to COMPUTATIONAL receiving fields in MOVE statements 
and arithmetic expressions. If TRUNC is specified, extra code is 
generated to truncate the final intermediate result of the . 
arithmetic expression, or the sending field in the MOVE statement, 
to the number of digits specified in the PICTURE clause of the 
COMPUTATIONAL receiving field. If NOTRUNC is specified, the 
compiler assumes that the data being manipulated conforms to 
PICTURE and USAGE specifications. The compiler then generates code 
to manipulate the data based on the size of the field in core 
(halfword, etc.). TRUNC conforms to the American National 
Standard, while NOTRUNC leads to more efficient processing. This 
will occasionally cause dissimilar results for various sending 
fields because of the different code generated to perform the 

ope ration. 
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2WB 

NOZWB 
determines if the compiler is to generate code to strip the sign 
when comparing a signed external decimal field to an alphanumeric 
field. If ZWB is in effect, the signed external decimal field is 
moved to an intermediate field and has its sign stripped before 
being compared to the alphanumeric field. ZWB conforms to the 
American National Standard, while NOZWB allows the user to test 
input numeric fields for SPACES to prevent abnormal termination. 


SYNTAX 

CSYNTAX 

NOSYNTAX 
indicates whether the source text is to be scanned for syntax 
errors only and appropriate error messages are to be generated. 
For conditional syntax checking (CSYNTAX), a full compilation is 
produced so long as no messages exceed the C level. If one or more 
E-level or higher severity messages are produced, the compiler 
generates the messages but does not generate object text. 


Notes; 


1. When the SYNTAX option is in effect, all of the following 
compile-time options are suppressed: 


OPTION control statement: LINK, DECK, XREF, LISTX 
CBL statement: SXREF, CLIST, COUNT, VERBSUM, VERBREF 


2. When conditional syntax-checking is requested, the preceding 
Options are suppressed only if one or more E- or D-ievel 
messages are generated. 


3. Unconditional syntax checking is assumed if all of the 
following compile-time options are specified: 


OPTION control statement: NOLINK, NOXREF, NODECK, LISTX 


CBL statement: SUPMAP (and CLIST, SXREF, VERBSUM, and VERBREF 
are not specified) 


4. Some compiler diagnostics do not appear when SYNTAX or CSYNTAX 
is in effect. 


SXREF 

NOSXREF 
causes the compiler to write an alphabetically-ordered 
cross-reference list on SYSLST. You may want to use the lister 
feature cross-reference information instead of this option for 
large COBOL programs, to decrease run time and get a better type of 
cross-reference. : 


PMAP=h 
enables the programmer to request a relocation factor "h" specified 
as one to eight hexadecimal digits. If the PMAP option is 
specified, the relocation factor is included in the addresses of 
the object code listing. If the PMAP option is not specified, the 
relocation factor is assumed to be zero. When PMAP is specified in 
a segmented program, the listing for segments of priority higher 
than the segment limit (49, if the SEGMENT-LIMIT clause is not 
specified) will not be relocated. The PMAP option is effective 
only if LISTX is specified. 
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OPTIMIZE 

NOOPTIMIZE 

OPT 

NOOPT 
~~~ OPTIMIZE (OPT) causes optimized object code to be generated by the 
compiler. This. more efficient code considerably reduces the amount 
of space required by the object program. 


This option cannot be used if either the symbolic debug option 
(SYMDMP), the statement number option (STATE), or the flow trace 
option (FLOW{[=nn]) is requested. 


Note: If NODECK and NOLINK are requested on the OPTION control 
statement and OPT is specified on the CBL card, OPT is ignored. 


FLOW[ =nn ] 
provides the programmer with a formatted trace (i.e., a list 
containing the program identification and statement numbers) 
corresponding to a variable number of procedures executed prior to 
an abnormal termination. The value "nn" may be from 0 to 99. If 
"nn" is not specified, a value of 99 is assumed. 


FLOW and STXIT, and FLOW and OPT are mutually exclusive, i.e., only 
one may be in effect during a compilation. In addition, FLOW and 
STXIT are mutually exclusive at execution time. Additional 
information on the flow trace option can be found in "Symbolic 
Debug Considerations." 


STATE 

NOSTATE 
STATE provides the programmer with information about the statement 
being executed at the time of an abnormal termination of a job. It 
identifies the program containing the statement and provides the 
number of the statement and of the verb being executed. STATE and 
STXIT, STATE and SYMDMP, and STATE and OPT are mutually exclusive 
options, i.e., no more than one may be in effect during a given 
compilation. (However, the facilities provided by STATE 
automatically exist with SYMDMP.) In addition, STATE and STXIT are 
mutually exclusive at executiom time. Additional information on 
the statement number option can be found in the chapter "Symbolic 
Debug Considerations." 


SYMDMP[=filename J 
indicates to the compiler that execution-time dumps may be 
requested for the program currently being compiled. If dumps are 
desired, the programmer must provide the required control cards at 
execution time. 


Use of the symbolic debug option necessitates the presence of an 
additional work file, SYS005, at compile time. The "filename" 
parameter enables the programmer to specify a name for the SYS005 
file that he can retain. If no filename is specified, IJSYSO5 will 
be used. When several COBOL programs are link edited together, the 
“filename" parameter enables each to have a unique SYMDMP name. 

For a tape file, only unlabeled tapes may be used, and the filename 
in the SYMDMP=filename parameter is ignored. 


SYMDOMP and STXIT, SYMDMP and STATE, and SYMDMP and OPT are mutually 
exclusive, i.e., only one may be in effect during a compilation. 
(However, the facilities provided by STATE automatically exist with 
SYMDMP.) In addition, SYMDMP and STIXIT are mutually exclusive at 
execution time. Additional information on the symbolic debug 
Option and the required execution-time control cards is in 
“Symbolic Debug Considerations." . 
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Note: If NODECK and NOLINK are requested on the OPTION control 
Statement and SYMDMP is specified on the CBL card, SYMDMP is 
ignored. 


CATALR 

NOCATALR 
causes the compiler to generate CATALR card images on the SYSPCH 
file if OPTION DECK is in effect during compilation. This will 
allow cataloging of the compiler-produced object modules into the 
relccatable library. The module names in the CATALR cards follow 
the same rules as the phase names in the compiler-produced PHASE 
cards according to the segmentation and sort phase naming 
conventions. (See "Sort Feature Considerations." ) 


LIB 

NOLIB 
indicates that BASIS and/or COPY statements are in the source 
program. If either COPY or BASIS is present, LIB must be in 
effect. If COPY and/or BASIS statements are not present, use of 
the NOLIB option yields more efficient compiler processing. 

VERB 

NOVERB 
indicates whether procedure~names and verb-names are to be listed 
with the associated code on the object program listing. VERB has 
meaning only if the LISTX, VERBSUM, VERBREF, COUNT, or CLIST 
compiler option is specified or if READY TRACE is used in the 
source program. NOVERB yields more efficient compilation. 

VERBSUM , 

NOVERBSUM 
provides a brief summary of verbs used in the program and a count 
of how often each verb is used. This option provides the user with 
a quick search for specific types of statements. VERBSUM implies 
VERB. 

VERBREF 

NOVERBREF 
provides a cross-reference of all verbs used in the program. This 
option provides the programmer with a quick index to any verb used 
in the program. VERBREF implies VERB and VERBSUM. 

COUNT 

NOCOUNT 


generates code to produce verb execution summaries at the end of 
problem program execution. Each verb is identified by 
procedure-name and by statement number, and the number of times it 
was used is indicated. In addition, the percentage of verb 
execution for each verb with respect to the execution of all verbs 
is given. A summary of all verbs used in a program and the number 
of times they are executed is provided. COUNT implies VERB. 

COUNT requires GETVIS=YES, which means that the SIZE parameter must 
be specified on the EXEC card. 


Note: If COUNT and STXIT are desired, then either STXIT must be 
requested in the program unit requesting COUNT, or the program unit 
requesting COUNT must be entered before the program unit requesting 
STXIT. . 
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MUTUALLY EXCLUSIVE OPTIONS: In some of the preceding descriptions of 
the CBL card options, restrictions have been placed on the use of one 
option in conjunction with others. If these restrictions are violated, 
the compiler ignores all but the last of the conflicting options 
specified. Therefore, if after a CBL card is coded you decide to use a 
new option that is mutually exclusive with an option on the original CBL 
card, a new CBL card can be added rather than changing the original 
card. 


CHANGING THE INSTALLATION DEFAULTS: In order to change the compiler 
default options to suit your installation, a new member, C.CBLOPTNS, 
must be added to the source statement library. This module must contain 
CBL option cards specifying the desired defaults. Resultant defaults 
may be overridden at compilation time by supplying a CBL card in the 
compiler input stream. 


| ust Statement -- Compiler Option Statement 


The LST statement is used to invoke the lister, a portion of the 
| compiler that processes programs written in DOS/VS COBOL, to produce a 
reformatted source code listing containing embedded cross-reference 
information and uniform indenting conventions. 


| The LST option statement can be placed anywhere between the EXEC 
statement and the first statement of the COBOL program. It may be 

| placed between any other compiler option statements. The options shown 
in the following format may appear in any. order. Underscoring indicates 
the default case. 


LST {| DECK, COPYPCH, « [| LSTCOMP, 
NODECK NOOOPYPCH LSTONLY 


2col 
a Ee | 


[PRoc=se2}. | 


LsT 
must begin in column 2 (column 1 must be blank) and be followed by 
at least one blank. 


DECK 

NODECK 
indicates whether an updated source deck is to be produced as a 
result of the lister reformatting and/or the update BASIS library. 


COPY PCH 
-~ NOCOPYPCH 
will punch updated and reformatted copy libraries as a permanent 
part of the source when DECK is specified. When no updated source 
deck is requested, an ‘epaaces and reformatted COPY library will be 
punched out. 


LSTONLY 

LSTCOMP | 
When LSTONLY is specified, the program will not be compiled, but a \ 
reformatted listing will be produced along with a deck if DECK has 
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been specified. LSTCOMP will provide a source listing and will 
compile the program as part of the job step. 


PROC=1col 
2col 


will list the Procedure Division in either single- or double-column 
format. At least 132 print positions are required on the printer 
for the double-column format. 


| SIGNIFICANT CHARACTERS FOR CBL/LST OPTIONS: The DOS/VS COBOL compiler 
selects the valid options for processing by looking for three 
significant characters of each key option word. When the keyword is 
identified, it is checked for the presence or absence of the prefix NO, 
aS appropriate. The programmer can make the most efficient use Of the 
| CBL or LST statement by using the significant characters instead of the 
entire option. Figure 5 lists the significant characters for each 
option. 


| Option ( Significant Characters ( 
fh 
( SEQ | SEQ | 
{ FLAGE (W) | LAG, LAGW | 
{ BUF { BUF { 
{ SPACE { ACE { 
( PMAP { PMA { 
{ SUPMAP { SUP i 
{ CLIST | CLI | 
{ TRUNC { TRU { 
| APOST { APO { 
{ QUOTE | QUO | 
{ SXREF | SXR { 
| STATE | STA { 
| FLOW | FLO | 
| LIB | LIB { 
{ SYMDMP | SYM { 
{ OPTIMIZE | OPT | 
{ SYNTAX | SYN { 
| CSYNTAX | CSY { 
| VERB | VER { 
| ZWB { ZWB ( 
( LVL | LVL { 
{ STXIT { STX j 
| VERBSUM { VERBSUM { 
| VERBREF | VERBREF | 
{ COUNT | Cou { 
| DECK { DEC { 
| COPYPCH | CoP | 
| LSTCOMP ( sTc { 
{ LSTONLY { STO { 
{ PROC | PRO ] 


Figure 5. Significant Characters for Each CBL/LST Option 


Note: SYM in the CBL statement should not be confused with SYM in the 
OPTION statement. 


FOREGROUND INSTALLATION CONSIDERATIONS 


In order for the compiler to be link edited in a foreground 
partition, you may have to create the required private core image 
library and any additional private libraries required for the partition 
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6 


in which the compiler is to execute. When the private libraries have 
been created, use the appropriate procedure -- either installation from 
disk or installation from tape -- to install the compiler and library, 
specifying the names of the private libraries where requested. The job 
must be run in the background. If your system has the optional 
relocating loader, however, you need only a copy of the prego in the 
system core image library. 


The following job creates partition standard labels for the 
background and defines the extents for four system work files to be used 
in the background. This job must be run in the background. 


// JOB | LABELS FOR BG 

// OPTION PARSTD 

// DLBL IJSYSRS,"DOS SYSRES FILE! , 99/365, SD 
// EXTENT SYSRES, 111111,1,1,001,489 

// DLIBL IJSYSCL,'DOS SYSCLE LIB', 99/365,SD 
// EXTENT SYSCLB, 111111,1,1,490, 700 

// DLBL IJSYSRL,*DOS SYSRLE LIB',99/365,SD 
// EXTENT SYSRLB, 111111,1,1,1190,510 

// DLBL IJSYSSL,"DOS SYSSLE LIB', 99/365,SD 
// EXTENT SYSSLB, 111111,1,1,1700, 120 

// DLIBL IJSYSRC,*DOS RECORD FILE', 99/365, SD 
// EXTENT SYSREC, 111111,1,1,1970,10 

// DLBL ESTVFLE,'TAPE ERROR STAT! , 99/365, SD 
// EXTENT SYS004, 111111,1,1,1980,10 

// DLBL IJSYS01,'SYS001 WORK FILE',99$/365,SD 
// EXTENT SYS001, 222222,8,1,0010,250,4 

// DLBL LJSYS02,'SYS002 WORK FILE',99/365,SD 
// EXTENT SYS002, 222222,8,1,0015,250,9 

// DLBL IJSYS03,'SYS003 WORK FILE',99/365,SD 
// EXTENT SYS003, 333333,8,1,0010,250,4 

// DLBL IJSYSO4,"SYS004 WORK FILE',99/365,SD 
// EXTENT SYS004, 333333,8,1,0015,250,9 

// DLBL IJSYSLIN,'SYSLNK WORK FILE',99/365,SD 
// EXTENT SYSLNK, 111111,1,1,1820, 150 


As a result of the above job, partition standard labels for the 
background are created, and the extents for the work files (SYS001, 
SYS002, SYS003, SYSO004) highlighted in Figure 6 are defined. The 
libraries on volser=111111 were created at system generation time. 
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Figure 6. 


Allocation for Work Files to be Used in Background 


To allow for compilation in the foreground, a private core image 
library assigned in the foreground must be created. In this example, 
private relocatable library and a private source statement library are 
also created, though the system libraries can be used if they are 
assigned in the foreground. 


To create the three private libraries, the following three jobs are 
run. The first job creates the private core image library; the second 
creates the private relocatable library; the third creates the private 


source statement library. 


These jobs must be run in the background. 


4/ JOB CREATE PCIL 
4/ ASSGN SYS003, X*cuu* 
4/ DLBL IJSYSPC,* PRIVATE CORE IMAGE LIB',99/365,SD 
4/ EXTENT SYS003, 333333,1,1,1010, 800 
4/ EXEC CORGZ 

NEWVOL CL=80 (20) 
/* 
76 
4/ JOB CREATE PRL 
4/ ASSGN SYSRLB, X* cuu! 
7/ DLBL IJSYSRL,* PRIVATE RELOCATABLE LIB' ,99/365,SD 
4/ EXTENT SYSRLB, 222222,1,1,1010, 750 
4/ EXEC CORGZ 

NEWVOL RI=75 (25) 
/* 
76 
4/4 JOB CREATE PRIVATE SYSSLB 
4/ ASSGN SYSSLB, X*cuu!® 
4/ DLBL IJSYSSL,* PRIVATE SOURCE LIB‘, 99/365,SD 
4/ EXTENT SYSSLB,222222,1,1,1760, 230 
4/ EXEC CORGZ 

NEWVOL SI1=23 (6) 
/* 
7& 
wheres cuu is the unit address of the drive on which the disk is 

mounted. 
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As a result of these three jobs, the three private libraries are 


added to the system, as highlighted in Figure 7.. 


Figure Ts Allocation after Creation of Private Libraries 


for foreground partition 2 (F2) and to define the extents of four system 
work files to be used in the foreground. 
foreground. 


4/ 
4/ 
4/ 
4/ 
4/ 
// 
47 
4/ 
4/ 
4/ 
4/ 
4/ 
4/ 
// 
7/ 
47 
4/ 
4/ 
4/ 
4/ 
7* 
76 


the compiler. 


Next, the following job is run to create partition standard labels 


JOB 
OPTION 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 
DLBL 
EXTENT 


This job must be run in the 


LABELS FOR F2 
PARSTD 

IJSYSRS,*DOS SYSRES FILE', 99/365, SD 
SYSRES, 111111,1,1,001,489 

IJSYSCL,* PRIVATE CORE IMAGE LIB', 99/365,SD 
SYSCLB, 333333,1,1,1010, 800 

IJSYSLN,*SYSLNK WORK FILE!,99/365,SD 
SYSLNK, 333333,1,1,1810,160 

IJSYSRL,* PRIVATE RELOCATABLE LIB*, 99/365,SD 
SYSRLB, 222222,1,1,1010,750 
IJSYSSL,"PRIVATE SOURCE LIB', 99/365,SD 
SYSSLB, 222222,1,1,1760,230 

IJSYS01,*SYS001 WORK FILE! ,99/365,SD 
SYS001, 333333 ,8,1,0510,250,4 
IJSYS02,*SYS002 WORK FILE',99/365,SD 

SYS00 2, 333333,8,1,0515,250,9 
IJJSYS03,"SYS003 WORK FILE',99/365,SD 
SYS003, 222222 ,8,1,0510,250,4 
IJSYSO4,*SYS004 WORK FILE',99/365,SD 
SYS004, 222222,8,1,0515,250,9 


The system, as shown in Figure 8, is now ready for installation of 


Creating partition standard labels before installation 


enables you to refer to the private libraries during installation 
without including DLBL and EXTENT statements. 
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Figure 8. Allocation for Work Files to be Used in Foreground 


Notes: 


1. 


3. 


A private core image library can be assigned to only one partition 
at a time. If more than one private core image library is to be 
used in any one partition, it is advisable not to include the 
labels in the partition standard labels. A private core image 
library must always be permanently assigned. 


Although a private core image library can be assigned in only one 
partition at any particular time, a relocatable library can be 
assigned to more than one partition simultaneously. 


Cataloging (link editing) into a private core-image library is 
valid in any partition at any time. Cataloging into a private 
relccatable library, however, is valid only in the background, and 
only if the library is not assigned to any other partition at that 
time. 


Because of this restriction in the use of the relocatable 
library, the first compiler installation jok and the first library 
installation job must be run in the background with a nonshared 
relocatable library. Subsequent compiler installation jobs and 
library installation jobs may be run in any partition by assigning 
the relocatable library used in the first job. 


The partition priorities are in the following ascending order: 
background, foreground-1, foreground-2, foreground-3, and 
foreground-4. These priorities may be changed at installation time 
through the PRTY parameter of the FOPT macro. 


If your system contains the relocating loader, it is not necessary 
to catalog separate copies of the compiler and its object-time 
subroutines for multipartition compile-link-execute capability. A 
Single copy of the compiler and library residing in the system core 
image and relocatable libraries will allow simultaneous usage from 
any partition. The previously discussed rules of library usage 
still apply, however, and must be considered regarding the use of 
private libraries during the installation procedure. 
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6. During installation, it is important to remember that SYSIPT and 
SYSRDR or SYSIN files cannot be assigned to the same device in two 
Or more partitions at the same time unless they reside on disk. 
Each partition must have its own input device. Separate output 
devices must also be assigned for each partition unless they are on 
disk. For example, if the following assignments are made in the 
background: ; 


ASSGN SYSIPT,X*'00C* 
. or ASSGN SYSIN,X*00C* (card reader) 
ASSGN SYSRDR,X'00C* 


then the assignments for a foreground partition must be different, 
such as those given below to specify tape input. 


ASSGN SYSIPT,X*182¢ 
or ASSGN SYSIN,X'182' (tape unit) 
ASSGN SYSRDR,X'182° | 


INSTALLATION FROM TAPE 


The compiler and library distribution tape contains 80-byte, 
fixed-length records, blocked 43 records per block (blocksize is 3440 
bytes). The library is also distributed separately on tape, (see 
"Separate Likrary Installation from Tape"). The installation tape 
contains four unlabeled files separated by tape marks. 


The first file contains a job which catalogs the compiler and library 
object modules into the relocatable library. Either the system or a 
private relocatable library may be used. This job must be run in the 
background partition, and the relocatable library must not be shared 
during the job. 


The second file contains three jobs consisting of the job control 
statements needed to link edit and catalog the compiler phases and the 
library transients and dynamically-loaded subroutines into the core 
image library. Either the system or a private core image library may be 
used. These jobs may be run in any partition. 


The third file is the sample program provided by IBM. Use this 
program to verify that the compiler and library have been successfully 
installed. See “Using the Sample Program" in this section for 
instructions. 


The fourth file is for 3886 users. It contains a job which catalogs 
Data and Procedure Division COPY members into the source statement 
library. See "3886 Considerations" in this section for instructions. 


Installing the Compiler and Library Modules into the Relocatable Library 


Refore you can install the compiler and library, you must deblock the 
files on the installation tape. The following example shows how to use 
the DSTRB utility to deblock the first file, which contains a job to 
install the compiler and library modules into the relocatable library. 

Position the tape at the beginning of the first file and execute the 
following job. 
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/4/ JOB DEBLOCK 
7/7 BSSGN SYS004,X'cuu' 
4/7 BSSGN SYS005,X‘'cuu' 
// TLBL UOUT, 'file-id't 
74/7 EXEC DSTRB 


7/7 UDS DBL 

7/ END 

7& 

where: cuu is the unit address of the tape drive on which the 


tape is mounted. SYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file-id is the unique name for the file on the output tape. 


Note: The output tape does not rewind. It must be reset to load 
point before the compiler and library can be installed. Do not 
rewind the installation tape. 


After the first file has been deblocked and the DOS/VS system 
libraries have been prepared, use the deblocked tape file to install the 
compiler and library. Execute the job in the background partition. 
Assign SYSRDR and SYSIPT to the tape unit on which the deblocked tape is 
mounted as shown below. 


ASSGN SYSIPT, X*' cuu! 


or ASSGN SYSIN,X'cuu' 
ASSGN SYSRDR, X'cuut 


where: cuu is the unit address of the tape drive on which the 
deblocked tape is mounted. 


After the operator has entered the command, the system executes the job 
on the first file. Following the JOB control statement there is a PAUS:i 
control statement. The PAUSE statement enables you to specify a private 
relocataktle likrary by assigning SYSRLB and SYSCLB at that time. 


The PAUSE control statement causes a message to appear on the 
operator console. To add the compiler and library modules to a private 
relocatable library, respond to this message by entering an ASSGN 
command for SYSRLB to define the private library. To add the compiler 
and library modules to the system relocatable library, simply signal 
END/ENTER in response to the message. This job must be run in the 
background, and the relocatable library must not be shared. 


Cataloging the Compiler and Library into the Core Image Library 


Before you can catalog into the core image library, you must deblock the 
second file on the installation tape. The following example shows how 
to use the TPTP utility to deblock the second file. 
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Position the installation tape at the second file and execute the 
following job: 


4/ JOB DEBLOCK 

47 ASSGN SYS004,X*cuu® installation tape 
4/7 ASSGN SYS005,X‘'cuu® work tare 

// TLBL UOUT, 'file-id* 

7/7 EXEC DSTRB 


// UDS DBL 

7/7 END 

7& 

where: cuu is the unit address of the tape drive on which the 


tape is mounted. SyYysS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file-id is the unique name for the file on the output tape. 


Note: The output tape does not rewind. It must be reset to load 
point before cataloging into the core image library can take place. 
Do not rewind the installation tape. 


After the second file on the installation tape has been deblocked and 
the DOS/VS system libraries have been prepared, use the deblocked file 
to catalog into the core image library. 


. Run this job in the partition in which you wish to install the 
compiler and library. Assign SYSRDR and SYSIPT to the unit where the 
deblocked file is ready. Sample commands are: 


ASSGN SYSIPT, X*cuu' 
or ASSGN SYSIN,X‘*cuu! 
ASSGN SYSRDR, X*cuu® 


where: cuu is the unit address of the tape drive or card reader 
containing the deblocked file. 


If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor ccntrol 
statement: . 


ACTION REL 


After the operator has entered the command, the system executes the 
job. Following the job control statement, there is a PAUSE statement. 


When the PAUSE card message appears on the console, you can add the 
compiler and library to a private core image library. To do this, 
respond to the message by entering an ASSGN command for SYSRLB to define 
the private relocatable library to which the modules have been added. 
Enter a second ASSGN command for SYSCLB to define the private core image 
library to which the compiler and library are to be added. To add the 
compiler and library to the system core image library, simply signal 
END/ENTER in response to the message. If you have added the compiler 
and library to a private relocatable library but want to add them to the 
system core image library, respond to the message by entering an ASSGN 
' command for SYSRLB to define the private relocatable library to which 
the compiler and library have been added. 
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Responses to the PAUSE messages in JOB1 and JOB2 are summarized in 
Figure 9. The summary assumes the necessary volumes are mounted on disk 
drives 191 and 192. 


|PAUSE Message (User Response {Result | 


{ JOB1 (File 1) | { 


| ! | 
{IF YOU WISH TO PUT MODULES IN|{ASSGN SYSRLB,X*191'(Compiler and library| 
{PRIVATE RELOCATABLE LIBRARY, | jadded to private | 
{YOU MAY ASSIGN SYSRLB AFTER {relocatable library. | 
| 
| 
| 
{ 


{PAUSE, IF NOT END/ENTER. or or 
| | END/ ENTER {Compiler and library 
| { jadded to system 

| | {xelocatable library. 


{ JOB2 (File 2) | 


JIF YOU TEMPORARILY ASSIGNED 
|SYSRLB IN THE PRIOR JOB, YOU 
(MUST ASSIGN IT AGAIN. IF 
{YoU DID NOT ASSIGN IT, 

| END/ENT ER. 


| | 
END/ENTER {Compiler and library| 
{added to system | 

{core image library | 

{from system | 

jxelocatable library. | 

or or | 

ASSGN SYSRLB,X*191"|{Compiler and library| 
{added to system | 

{core image library | 

jfxrom private | 

{relocatable library. | 

or | or { 

ASSGN SYSCLB, X*192* {Compiler and library| 
{added to private | 

jcore image library | 

{from system | 

j|relocatable library. | 

or or { 

ASSGN SYSRLB,X*191"|{Compiler and library| 
ASSGN SYSCLB,X‘'192* {added to private { 
{core image library | 

{from private { 

{relocatable library. | 


t-———___—_______________1--____________1___________—__f 

{Note: Each ASSGN command must be followed by DLBL and EXTENT commands | 

{if no label for the private library defined in the command exists in | 

{the partition standard labels. 

a ah ee 

Figure 9. Responses to PAUSE Messages in Cataloging Compiler and 
Library From Tape 


As a result of executing the two jobs on the first and second files, 
respectively, of the installation tape, the compiler and library are 
cataloged into the relocatable library and the core image library that 
you have specified. 


Using the Sample Program 


The sample program provided by IBM helps you verify that the compiler 
has been successfully installed. The sample program, TESTRUN, creates a 
blocked, labeled, standard sequential file, on a tape assigned to 
SYS008, and then reads it back in. This tape is assigned to device 
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address 483. A source statement listing appears in the publication 


DOS/VS_CCBOL Compiler and Library Programmer's Guide. 


To use the sample program, deblock and punch the third file onto 
cards as follows. Position the installation tape at the beginning of 
the third file and execute the following job: 


47 JOB SAMPLE —— 
77 BSSGN SYS005,X'cuu' defines the system punch unit 
// BASSGN SYS004,X*'cuu' defines the installation tape drive 
// EXEC DSTRB 
4/ UDS DBL 
74/7 END 


Note: Do not rewind the installation tape. 


Place the card deck produced as output from this job into the card 


reader. When you are ready to run the sample program, have the operator 


issue the necessary commands. 


Successful compilation of the sample program will produce the 
following output: 


1.. A listing of the job control statements. 
2. A listing of the source program. 


3. A glossary of compiler-generated information about data, as well as 
glokal tables and literal pools and register assignments. 


4. A listing of the object code. 
5. A cross-reference listing. 
6. Linkage editor diagnostic output and a map of virtual storage. 


7. %§Execution time output produced by the sample program. 


3886 Considerations 


The two COBOL source statement library members provided by IBM allow the 
3886 user to copy standard Data and Procedure Division statements into a 
COBOL program. An iliustration of these source statements appears in 


the publication IBM DOS/VS COBOL Compiler and Library Programmer's 
Guide. Note: The 3886 is not supported in CMS/DOS. 


To install these members in the source statement library, deblock and 
punch the fourth file on the installation tape onto cards as shown. 
below. 


4/ JOB DEBLOCK 


4/7 BSSGN SYS005,X'cuu' defines the system punch unit 

74/7 ASSGN SYS004,X'cuu' defines the installation tape drive 
4/ EXEC DSTRB 

4/ UDS DBL 

// END 


Note: Do not rewind the installation tape. 
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Place the card deck produced as output from this job in the card 
reader and have the operator issue the necessary commands to execute the 
job stream. 


Generation of Compiler Diagnostic Messages 


The user should request a complete listing of the diagnostic messages 
generated by this compiler. This is done by compiling a program with a 
PROGRAM- ID of ERRMSG. (In this case, a normal compilation never takes 
place. Only a list of all error messages and problem determinations is 
produced. The link option is reset if it was in effect.) 


Figure 10 shows a COBOL program that produces compiler diagnostic 
messages. . 


eS ee ee ee ey eee ay eg eR a gee he ee ee ek eee ee Ee eee 
(77 JOB ERRORMSG User information 
(77 EXEC FCOBOL 


ID DIVISION. 
PROGRAM-IC. ERRMSG. 
REMARKS. COMPILATION OF THIS PROGRAM WILL RESULT IN ALL 
COMPILER DIAGNOSTICS BEING PRODUCED-NO OBJECT MODULE 
IS PRODUCED. 
-NO COMPILE-TIME 
STATISTICS ARE 
PRODUCED. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 
THE SAME RESULTS CAN BE ACHIEVED BY CHANGING THE 
* 'PROGRAM-ID OF ANY PROGRAM TO 'ERRMSG*. 
STOP RUN. 


Figure 10. A Program that Produces COBOL Compiler Diagnostics 


SEPARATE LIBRARY INSTALLATION FROM TAPE 


The library is also distributed separately on a tape that consists of 
80-byte, fixed-length records, blocked 43 records per block (blocksize 
is 3440 bytes). 


The library installation tape contains two unlabeled files separated 
by tapemarks. 


The first file contains a job that catalogs the subroutines and LIOCS 
modules into the relocatable library. Either the system or a private 
relocatable library may be used. This job must be run in the background 
partition, and the relocatable library must not be shared during the 
job. 


The second file contains two jobs that link edit and catalog the 
library transients and the dynamically-loaded subroutines into the core 
image library. Either the system or a private core image library may be 
used. This job may be run in any partition. 
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Installing the Subroutine Library Modules into the Relocatable Library 


Before you can install the library, you must deblock the files on the 
installation tape. The following example shows how to use the DSTRB 
utility to deblock the first file. 


Position the installation tape at the beginning of the first file and 
execute the following job. 


4/ JOB DEBLOCK 

7/7 ASSGN SYS004,X'cuu* 
7/7 ASSGN SYS005,X‘*cuu't 
// TLBL UOUT, 'file-id' 
_f7 EXEC DSTRB 

4/ UDS TLBL 

4/7 END 


where: cuu is the unit address of the tape drive on which the 
tape is mounted. SyYS004 is the installation tape 
supplied by IBM; SYS005 is the tape to be used for 
deblocked output. 


file-id is the unique name for the file on the output tape. 


Note: The output tape does not rewind. It must be reset to load 
point before the subroutine library modules can be installed. Do 
not rewind the installation tape. 


Use the deblocked file to install the Subroutine Library into the 
relocatable library. Execute this job in the background partition. 
Assign SYSRDR and SYSIPT as shown below to the tape unit on which the 
deblocked tare is mounted. 


ASSGN SYSIPT, X* cuu® 
or ASSGN SYSIN,X‘'cuu' 
ASSGN SYSRDR, X'cuu* 


where: cuu is the unit address of the tape drive on which the 
deblocked tape is mounted. 


After the operator has entered the commands, the system executes the job 
on the first file. Following the JOB control statement, there is a 
PAUSE control statement. The PAUSE statement enables you to ca a a 
private neeocarente library by assigning SYSRLB. 


This job adds the subroutine library modules and the LIOCS modules to 
the relocatatle library. It must be run in the background and the 
relocatable library must not be shared during the job. When the PAUSE 
message appears, enter an ASSGN command for SYSRLB if you wish the 
modules to be added to a private relocatable library. To add the 
library subroutines and LIOCS modules to the system relocatable library, 
simply signal END/ENTER in response to the message. 
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Cataloging the Subroutine Library Transients and Dynamically-Loaded 
Subroutines into the Core Image Library ; 


The following example shows how to use the TPTP utility to deblock the 
second file. -This file contains two jobs to catalog the library 
transient- and dynamically-lcaded subroutines into the core image 
library. 


Position the installation tape at the beginning of the second file 
and execute the following job. 


// JOB DEBLOCK 

7/ ABSSGN SYS004,X'cuu' installation tape 
// ASSGN SYS005,X'cuu' work tape 

/4/ TLBL UOUT, 'file-id* 

4/ EXEC DSTRB 


4/7 WS DBL 

4/ END 

76 

where: cuu is the unit address of the tape drive on which the 


tape is mounted. SYS004 is the installation tape 
supplied by IBM; SyYS005 is the tape to be used for 
deblocked output. 


. 


file-id is the unique name of the file on the output tape. 


Note: The output tape does not rewind. It must be reset to load 
point before cataloging of the subroutines into the core image 
library can be done. Do not rewind the installation tape. 


After the second file has been deblocked, and the DOS system 
libraries have been prepared, use it to catalog the library transients 
(JOB2) and the dynamically-loaded subroutines (JOB3) into the core image 
library. 


Run this job in the partition in which you wish to install the 
library. Assign SYSRDR and SYSIPT as shown below to the unit where the 
deblocked file is ready. 


ASSGN SYSIPT, X*cuu' 
or ASSGN SYSIN,X‘'cuu* 
ASSGN SYSRDR, X'cuu' 


where: cuu is the unit address of the tape drive containing the 
deblocked file. 


If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 


ACTION REL 


After the operator has entered the command, the system begins 
executing the jobs. Following each job control statement, there is a 
PAUSE control statement. 


The first job adds the transient routines to the core image library. 
When the PAUSE message appears, these routines can be added to a private | 
core image library by entering an ASSGN command for SYSCLB to define the 


™~ 
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private core image library. To add the transient routines to the system 
core image library, simply signal END/ENTER in response to the message. | 


The second job adds the dynamically loaded subroutines to the core 
image litrary. These subroutines are self-relocatable. To, add the 
dynamically loaded subroutines to a private core image library, respond 
to the PAUSE message by entering an ASSGN command for SYSCLB to define _ 
the private core image library. To add the routines to the system core 
image library, simply signal END/ENTER in response to the message. 


During link editing of these dynamically loaded subroutines, an 
unresolved external reference is created for the IOCS module IJJCPDV2. 
The reference is resolved during execution of the routines. 


Responses to the PAUSE messages are summarized in Figure 11. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 


a 
{PAUSE Message {User Response {Result 


| JOB1 (File 1) { 


{IF YOU WISH TO PUT END/ENTER leupeeueinige and IOCS 
| SUBROUTINES IN PRIVATE |modules added to 
|RELOCATABLE LIBRARY, YOU MAY {system relocatable 
{ASSIGN IT AFTER PAUSE. jlibrary. 
or | or 
ASSGN SYSRLB, X‘191*| Subroutines and IOCS 
{modules added to 
{private relocatable 


{ library. 
| ; 
| JOB2 (File 2) { 
{YOU MAY ASSIGN A PRIVATE — END/ ENTER {Transient routines 


(CORE IMAGE LIB AT PAUSE. IF 
(NOT, END/ENTER. 


| 

| 
jadded to system | 

{core image library. | 

| or | 

ASSGN SYSCLB, X* 192" (Transient routines | 
{added to private | 

{core image library. | 


END/ENTER \syadabeaiay loaded 
{subroutines added to 
jsystem core image 

E eeeaa: 
or or 
ASSGN SYSCLB, X* 192" | Dynamically loaded 
{subroutines added to 
{private core image 
{library. 


JOB3 (File 2) 


YOU MAY ASSIGN A PRIVATE 
CORE IMAGE IIB AT PAUSE. IF 
NOT, END/ENTER. 


t-——_-_-—_——_———_-——__-——____ + dt 
{Note: Each ASSGN command must be followed by DLBL and EXTENT commands | 
{af no label for the private library defined in the command exists in | 
{the partition standard labels. i 
nee tee yet epee ee en rs ns tsnenseenentesononennnsnneienneneneensecoannen cna 
Figure 11. Responses to PAUSE Messages in Cataloging Library From Tape 


-As a result of executing the three jobs on the first and second files 


of the installation tape, the library modules are cataloged into the 
relocatable aa REaTY and the core image library that you have specified. 
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INSTALIATION FROM DISK 


The compiler and library can be ordered on a disk supplied by the 
customer or a disk purchased from IBM. 


The installation disk contains four files consisting of 80-byte, 
fixed-length records, blocked 43 records per block (blocksize is 3440 


bytes) . 


The first file contains a job that catalogs the compiler and library 
object modules into the relocatable library. Either the system or a 
private relocatable library may be used. This job must be run in the 
background partition, and the relocatable library must not be shared 
during the job. The name of this file on the installation disk is 
"N5746CB1.VSANSCOB.JOB1° . 


The second file contains three jobs consisting of the control 
statements needed to link edit and catalog the compiler phases, library 
transients, and dynamically-loaded subroutines into the core-image 
library. Either the system or a private core-image library may be used. 
These jobs may be run in any partition. The name of this file on the 
installation disk is 'N5746CB1.VSANSCOB. JOB2*. 


The third file is the sample program provided by IBM. Use this 
program to verify that the compiler has been successfully installed. 
See "Using the Sample Program" in this section for instructions. The 
name of this file on the installation disk is 


\ 


*N5746CB 1. VSANSCOB.SAMPROG *.. 


The fourth file is for 3886 users. It contains a job which catalogs 
Data and Procedure Division COPY statements into the source statement 
library. See "3886 Considerations" in this section for instructions. 
The name of this file on the installation disk is 
*N5746CB 1. VSANSCOB.CPY3886'. 


Installing the Compiler and Library Modules into the Relccatable Library 


Before you can install the compiler and library, you must deblock the 
files on the installation disk. The following example shows how to use 
the DSTRB utility to deblock the first file. 


4/7 JOB DEBLOCK DISK TO DISK 

// ASSGN SYS004, X*cuu! installation disk 

7/7 ASSGN SYS005,X'cuu! deblocked output disk 
4/ DLBL UIN, 'N5746CB1.VSANSCOB.JOB1°* 

// EXTENT SYSO004 

4/ DLBL UOUT,*DOS VS COBOL® 

// EXTENT SYSO005,111111, 1,0, 100,500 

4/ EXEC DSTRB 

4/ UDS DBL 

7/ END 


where: cuu is the unit address of the disk drives. SYS004 is the 
installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 


After the DOS/VS system libraries have been prepared, you may use the 


deblocked file to install the compiler and library into the relocatable 
library by running the following job in the background partition. 
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Place these cards in the card reader and then signal END/ENTER. 
4/ DLBL ILSYSIN,*DOS VS COBOL‘ 


ASSGN SYSIPT,xX*cuu' 
or ASSGN SYSIN,X*cuu® 
ASSGN SYSRDR, X‘*cuut 


where: cuu is the unit address of the drive containing the 
deblocked file. 


After the DOS/VS system libraries have been prepared, have the 
operator issue the necessary commands to execute the job stream in the 
background partition. 


Fol lowing the JOB control statement in the input stream, there is a 
PAUSE control statement. The PAUSE statement enables you to specify a 
private relocatable library by assigning SYSRLB. 


The PAUSE card causes a message to appear On the console. To add the 
compiler and library to a private relocatable library, respond to this 
message ky entering an ASSGN command for SYSRLB to define the private 
library. To add the compiler and library to the system relocatable 
library, simply Signal END/ENTER in response to the message. This job 
must be run in the background and the relocatable library must not be 
shared during the job. 


Cataloging the Compiler and Library into the Core Image Library 


Before you can catalog into the core image library, you must deblock the 
second file on the installation disk. The following example shows how 
to use the DSTRB utility to deblock the second file. 


47 JOB DEBLOCK DISK TO DISK 

/4/ ASSGN SYS004,X*cuu' installation disk 

7/7 ASSGN SYS005,X*cuu' deblocked output disk 
4/7 DLBL UIN, 'N5746CB1. VSANS COB. JOB2* 

4/ EXTENT SYSOO4& 

7/7 DLBL UOUT, *DOS VS COBOL‘ 

4/7 EXTENT SYS005,111111,1,0,600,2 

7/7 EXEC DSTRB 

4/7 UDS DBL 

4/7 END 


where: cuu is the unit address of the disk drives. SyYS004 is the 
installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 


After the DOS system libraries have been prepared, you may use the 
deblocked file to catalog the compiler and library into the core image 
library ky running the following job in the parti rion where you would 
like the compiler and library installed. 
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Place the following cards in the card reader and signal END/ENTER. 
/4/ DLBL IJSYSIN,*DOS VS COBOL* 


ASSGN SYSIPT, X*cuu* 
or ASSGN SYSIN,X*cuu! 
ASSGN SYSRDR, X‘cuu! 


where: cuu is the unit address of the drive containing the 
deblocked file. 


After the DOS/VS system libraries have been prepared, have the 
operator issue the necessary ccmmands to execute the job stream in the 
partition where you would like the compiler and library installed. 


If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 


ACTION REL 


After the operator has initiated the job, a PAUSE card message will 
appear on the console enabling you to add the compiler and library to a 
private core image library. To do this, respond to the message by 
entering an ASSGN command for SYSRLB to define the private relocatable 
library to which the modules have been added. Enter a second ASSGN 
command for SYSCLB to define the private core image library to which the 
compiler and library are to be added. To add the compiler and library 
to the system core image library, simply signal END/ENTER in response to 
the message. If you have added the compiler and library to a private 
relocatable library but want to add them to the system core image 
library, respond to the message by entering an ASSGN command for SYSRLB 
to define the private relocatable library to which the compiler and 
library have been added. 


Responses to the PAUSE messages are summarized in Figure 12. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 
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r~ a . = eae T . T 1 | 
{PAUSE Message {User Response {Result 


are 
| JOB1 (File 1) | | 


{IF YOU WISH TO PUT MODULES ieee Sse isan connie and library 
(PRIVATE RELOCATABLE LIBRARY, | _ [added to private 
{YOU MAY ASSIGN SYSRLB AFTER | {relocatable library. 
{PAUSE, IF NOT END/ENTER. | or | or 

{ | END/ENTER {Compiler and library 
| | {added to system 

| | 


{relocatable library. 
/;—_—_——— 
| JOB2 (File 2) 


(IF YOU TEMPORARILY ASSIGNED 
{|SYSRLB IN THE PRIOR JOB, YOU 
(MUST ASSIGN IT AGAIN. IF 
{YOU DID NOT ASSIGN IT, 

| END/ENT ER. 


| 


| 

END/ENTER {Compiler and library| 

{added to system { 

{core image library | 

{from system { 

| relocatable library. | 

or | or | 

ASSGN SYSRLB,X'191'|Compiler and library| 

jadded to system | 

jcore image library | 

{from private | 

{relocatable library. | 

or | or | 

ASSGN SYSCLB,X'192* (Compiler and library| 

{added to private | 

{core image library | 

{from system ( 

{relocatable library. | 

or — { or | 

ASSGN SYSRLB,X'191*{Compiler and library| 

ASSGN BIO CEE, Arte" [added to private { 

{core image library | 

jfxom private | 

Dos {relocatable library. | 

jNote: Each ASSGN command must be followed by DLBL and EXTENT commands { 

jaf no label for the private library defined in the command exists in | 

{the partition standard labels. » | 

t } 
Figure 12. Responses to PAUSE Messages in Cataloging Compiler and 

Library From Disk 
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Using the Sample Program 


The sample program provided by IBM helps you verify that the DOS/VS 
compiler has been successfully installed. The sample program, TESTRUN, 
creates a blocked, labeled, standard sequential file, on a tape assigned 
to SYS008, and then reads it back in. This tape is assigned to device 
address 483. A source statement listing appears in the publication 


DOS/VS_ COBOL Compiler and Library Programmer's Guide. 
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To use the sample program to verify the installation, deblock and 


punch the third file onto cards as shown below. 


/4/ JOB SAMPLE 

// ASSGN SYS006,X'cuu' defines the system punch unit 

4/7 BSSGN SYS009,X*cuut defines the installation disk drive 
(standard labels assumed) 

/4/ DLBL UIN,*N5746CB1.VSANSCOB. SAMPROG! 

// EXTENT SYS009 

7/ EXEC DSTRB 

// UDS DBL 

// END 


Place the card deck produced as output from this job into the card 
reader. When you are ready to run the sample program, have the operator 
issue the necessary commands to execute the job stream. 


Successful compilation of the sample program will produce the 


following output: 


1. 


A listing of the job control statements. 
A listing of the source program. 


A glossary of compiler-generated information about data, as well as 
global tables, literal pools, and register assignments. 


A listing of the object code. 
A cross-reference listing. 
Linkage editor diagnostic output and a map of virtual storage. 


Execution time output produced by the sample program. 


3886 Considerations 


The two COBOL source statement library members provided by IBM allow the 
3886 user to copy standard Data and Procedure Division statements into a 
COBOL program. An illustration of these source statements appears in 


the publication IBM DOS/VS COBOL Compiler and Library Programmer's 
| Guide. Note: The 3886 is not supported in CMS/DOS. 


To install these members in the source statement library, deblock and 


punch the fourth file on the installation tape onto cards as shown 
below. 


4/ JOB DEBLOCK 
/4/ BSSGN SYS006,xX'cuu! defines the system punch unit 
// BSSGN SYS009,X'cuu' defines the installation disk 


(standard labels assumed) 
// DLBL UIN,*N5746LM4.VSANSLIB. CPY3 886! 
// EXTENT SYS009 
// EXEC DSTRB 
4/ ODS DBL 
// END 
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Place the card deck produced as output from this job in the card 
reader and have the operator issue the necessary commands to execute the 
job stream. . 


Generation of Compiler Diagnostic Messages 


See "Generation of Compiler Diagnostic Messages" in the section 
"Installation from Tape." 
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SEPARATE LIBRARY INSTALLATION FROM DISK 


The DOS/VS Subroutine Library can also be ordered separately on a disk 
supplied by the customer or a disk purchased from IBM. 


The installation disk contains two files consisting of 80-byte, 
fixed-length records, blocked 43 records per block (blocksize is 3440 
bytes). These files are shown in Figure 13. 


The first file contains the job control statements, control cards, 
and object modules needed to place the library subroutines and the LIOCS 
modules required by the compiler into the relocatable library. Either 
the system relocatable library or a private relocatable library can be 
used. This job must be run in the background and the relocatable 
library must not be shared during the job. The name of this file on the 
installation disk is 'NS5746LM4.VSANSLIB.JOB1*. 


The second file contains two jobs to link edit and catalog the 
library transients and dynamically-loaded subroutines into the core 
image likrary. Either the system core image library or a private core 
image library can be used. This job may be run in any partition. The 
name of this file on the installation disk is 'N5746.LM4.VSANSLIB.JOB2'. 


Catalog subroutine library 
modules and IOCS modules 
into relocatable library 


. FIRST FILE 
Catalog transient routines 


into core image library 


Catalog dynamically loaded 
subroutines into core 


image library 


Catalog compiler modules 
into relocatable library SECOND FILE 


Catalog compiler phases 
into core. image library 


Figure 13. Subroutine Library Installation Disk 


Installing the Object-Time Subroutines into the Relocatable Library 


Before you can install the DOS/VS Subroutine library, you must deblock 
the files on the installation disk. The following example shows how to 
use the DSTRB utility to deblock the first file. 
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7/7 JOB DEBLOCK DISK TO DISK 

‘4/7 ASSGN SYS004,xX'cuut installation disk 

47/7 ASSGN SYS005,X‘'cuu' deblocked output disk 
7/ DLBL UIN,*N5746LM4.VSANSLIB. JOB1* . 

// EXTENT SYS004 

4/ DLBL VOUT, "DOS VS COBOL' 

// EXTENT SYS005,111111,1,0,100, 150 

4/7 EXEC DSTRB 

4/7 WDD UDS DBL 

7/7 END 


where: cuu is the unit address of the disk drives; SYSO004 is the 
installation disk supplied by IBM; SYS005 is the disk 
to be used for the deblocked output. 


After the DOS system libraries have been prepared, use the deblocked 
file to install the object-time subroutines into the relocatable library 
directly from disk by running the following job in the background 
partition. 


Place the following cards in the card reader and signal END/ENTER. 
//DLBL. IJSYSIN, ‘DOS VS COFOL' 


ASSGN SYSIPT, X*cuut 
or ASSGN SYSIN,X‘*cuu! 
ASSGN SYSRDR, X'cuu' 


where: cuu is the unit address of the drive containing the 
deblocked file. 


Have the operator issue the necessary commands to execute the job 
stream. The job stream must be run in the background partition. 


Following the JOB control statement in the input stream, there is a 
PAUSE control statement. The PAUSE statement enables you to specify a 
private relocatable library assigning SYSRLB. 


This job adds the subroutine library modules and the IOCS modules to 
the relocatable library. When the PAUSE message appears, enter an ASSGN 
command for SYSRLB if you wish the modules to be added to a private 
relocatable library. To add the library modules and IOCS subroutines to 
the system relocatable library, simply signal END/ENTER in response to 
the message. This job must be run in the background, and the 
relocatakle library must not be shared during the job. 


Cataloging the Library Transients and Dynamically-Loaded Subroutines 
into the Core Image Library 


The follcwing example shows how to use the DSTRB utility to deblock the 
second file, which contains two jobs to catalog the library transients 
and dynamically-loaded subroutines into the core image library. 


4/ JQB DEBLOCK DISK TO DISK 

// ASSGN SYS004,X'cuu' installation disk 

7/7 BSSGN SYS005,X'cuu! deblocked output disk 
7/ DLBL UIN, *N5746LM4&.VSANSLIB. JOB2! 

// EXTENT SYSO0O4 

// DLBL UCUT,*DOS VS COBOL! 

// FXTENT SYS005,111111,1,0,250,100 

47 EXEC DSTRB 


56 Order No. SC28-6479 


4/ UDS DBL 
7/ END 
7& 


where: cuu is the unit address of the disk drives; SYS0O04 is the 
installation disk supplied by IBM; SyS005 is the disk 
used for the deblocked output. 


After the DOS/VS system libraries have been prepared, you may use the 
deblocked file to catalog the library transients and dynamically-loaded 
subroutines into the core image library directly from disk by running 
the following job in the partition where you would like the library 
installed. 


Place the following cards in the card reader and signal END/ENTER. 
7/7 DLBL IJSYSIN,*DOS VS COBOL‘ 


ASSGN SYSIPT, X*cuu' 
> Or ASSGN SYSIN,X‘*cuu't 
ASSGN SYSRDR, X‘'cuu't 


where: cuu is the unit address of the drive containing the 
deblocked file. 


If disk space is severely limited, you may want to install the 
library transients and dynamically-loaded subroutines from card input 
(there are approximately 800 cards). First use the following job 
control statements to punch the installation jobs from the disk onto 
cards. 


4/7 JOB DSKTOCD 

// ASSGN SYS006,X‘'cuu' defines system punch unit 

// BSSGN SYS009,X'cuut defines installation disk drive 
(standard labels are assumed) 

// DLBL UIN,*N5746LM4.VSANSLIB. JOB2! 

// EXTENT SYS009 

47 EXEC DSTRB 

4/7 UDS DBL 

// END 


- When the job is completed, place the output deck into the card 
reader. Have the operator issue the necessary commands to execute the 
job stream. The job stream must be run in the partition in which the 
library transients and dynamically-loaded subroutines are to be 
installed. 


If you plan to use the compiler and library with CMS/DOS, you must 
install it in the background partition. You must also link-edit all the 
compiler relocatable modules using the following linkage editor control 
statement: 


ACTION REL 


After the operator has entered the command and indicated END/ENTER, 
the system begins executing the jobs. Following each JOB control 
statement there is a PAUSE control statement. 


The first job adds the transient routines to the core image library. 
When the PAUSE message appears, these routines can be added to a private 
core image library by entering an ASSGN command for SYSCLB to define the 
private core image library. To add the transient routines to the system 
core image library, simply signal END/ENTER in response to the message. 


cad 
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The second job adds the dynamically loaded subroutines to the core 
image library. These subroutines are self-relocatable. To add the 
dynamically loaded subroutines to a private core image library, respond 
to the PAUSE message by entering an ASSGN command for SYSCLB to define 
the private core image library. To add the routines to the system core 
image library, simply signal END/ENTER in response to the message. 


During link editing of these dynamically loaded subroutines, an 
unresolved external reference is created for the IOCS module IJJCPDV2. 
The reference is resolved during execution of the routines. 


Responses to the PAUSE messages are summarized in Figure 14. The 
summary assumes the necessary volumes are mounted on disk drives 191 and 
192. 


{PAUSE Message {User Response {Result 


{  JOB1 (File 1) 


| 
{IF YOU WISH TO PUT END/ ENTER {Subroutines and IOCS 
{SUBROUTINES IN PRIVATE {modules added to 
{RELOCATABLE LIBRARY, YOU MAY {system relocatable 
ASSIGN IT AFTER PAUSE. library. 
| y 
or { or 
ASSGN SYSRLB,X'191'{Subroutines and IOCS 
{modules added to > 
{private relocatable 


| library. 
JOB2 (File 2) | 
| 
YOU MAY ASSIGN A PRIVATE END/ENTER {Transient routines 


CORE IMAGE LIB AT PAUSE. IF 


| 

| 

jadded to system 

NOT, END/ENTER. 
| 

| 

| 

| 


{ 
{ 
| 
| 
{core image library. | 
or { or { 
ASSGN SYSCLB,X'192"{Transient routines | 

{added to private | 

{core image library. | 


END/ ENTER i peeaniesniy loaded 
{subroutines added to 
|system core image 
jlibrary. 

or or 
ASSGN SYSCLB,X'192'{Dynamically loaded 
{subroutines added to 
{private core anage: 
{library. 


i JOB3 (File 2) 
| 


{YOU MAY ASSIGN A PRIVATE 
{CORE IMAGE LIB AT PAUSE. IF 
{NOT, END/ENTER. 


Figure 14. Responses to PAUSE Messages in Cataloging Library From Disk 


Note: Each ASSGN command must be followed by DLBL and EXTENT commands 
if no lakel for the private library defined in the command exists in the 
partition standard labels. 
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STORAGE REQUIREMENTS 


This section defines the partition size required by the DOS/VS compiler 
alone and the storage required by the compiler together with the DOS/VS 


subroutine library on the core image library. 


The storage needed for 


the compiler, subroutines, and required IOCS modules on the relocatable 


library is also given. 


VIRTUAL 


Minimum 
storage 
storage 


STORAGE 


CORE IMAGE LIBRARY 


60K bytes of virtual storage. 
if a BUF parameter is specified on the CBL card. 
must be allocated to compensate for six buffers of that size. 


The compiler needs added virtual 


Enough extra 


eer enema eenenenetgrernrnetinionstte eee nt 


| Compiler 


| Transient routines 


Number of Phases 


{| Likrary Phases 


{*All supported devices. 


Number of Library Blocks | 
For Release 29* 

(Physical Records) | 

511 | 

4 { 


32 | 


| Eee Un ne | 


Compiler Phases 


FCOBOL 

FCOBOL05 
FCOBOL06 
FCOBOLO7 
FCOBOLO8 
FCOBOL 10 
FCOBOL11 
FCOBOL 12 
FCOBOL20 
FCOBOL 21 


FCOBOL22 
FCOBOL25 
FCOBOL 30 
FCOBOL4O 
FCOBOL50 
FCOBOL51 
FCOBOL60 
FCOBOL62 
FCOBOL63 
FCOBOL64 
FCOBOL65 
FCOBOL61 
FCOBOL70 
FCOBOL80 


(Note 1) 


(Note 2) 


(Note 3) 


(Note 2) 


(Note 4) 
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Note 1: Phases FCOBOLO5, FCOBOL06, FCOBOLO7, and FCOBOLO8 are executed 
only when the lister feature is used. 


Note 2: Phases FCOBOL25 and FCOBOL65 are executed only when symbolic 
debugging is used. 


Note 3: If optimization is not requested, phase FCOBOL60 is called 
instead of FCOBOL62, FCOBOL63, and FCOBOL64. 


Note 4: If FIPS processing is not requested, phase FCOBOL80 is not 
called, and compilation terminates after phase FCOBOL70. 


Transient Routines 


$$BCOBEM (Executed only when SYMDMP, FLOW, STATE, or COUNT is 
specified.) 

$$BCOBER 

$$BCOBR1 

$$BFECMUL 


Library Phases 


Executed only when SYMDMP is specified. 


ILBDiHP01 
ILBDMP02 
ILBDMPO4 
ILBDMP 10 
ILBDMP11 
ILBDMP 12 
ILBDMP13 
ILBDMP 14 
ILBDMP20 
ILBDMP21 
ILBDMP22 
ILBDMP23 
ILBDMP24 
ILBDMP25 
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RELOCATABLE LIBRARY 


| Number of Library Blocks 
| . Number of Modules | (Physical Records) { 


{ Compiler | 39 | 2473 
{Library i 81 | 425 
SSS SS ee 
| Iocs { 7 { 32 


Compiler Modules 


ILACBVS 
ILACBLOO 
ILACBLO1 
ILACBLO5 
ILACBL06 
ILACBL07 
ILACBLO8 
ILACBL 10 
ILACBL11 


ILACRL12 
ILACBL20 
ILACBL21 
ILACEL22 
ILACBL25 


ILACBL30 
ILAC BL40 
ILACBL50 
ILACBL51 
ILACBL60 


ILACBL62 
ILACBL63 
ILACBL64 
ILACBL65 
ILACBL61 
ILACBL70 


ILACBL80 
ILACBL81 

ILACBL82 
ILACBL83 
ILACBL84 
ILACBL85 
ILACEL86 
ILACBL87 
ILACBL88 
ILACBL89 
ILACBL8A 
ILACBL8B 
ILACBL8C 
ILACBL8D 
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Subroutines 


Library Modules . bytes of Virtual Storage Blocks 
I LBDABXO 412 4 
ILBDACPO 1050 7 
ILBDALRO 350 4 
ILEDANEO . 322 3 
ILBDANFO 110 2 
ILBDASYO 88 2 
ILBCATBO 256 2 
ILBDBIDO 112 2 
ILBDBIEO 116 2 
ILBDBIIO 464 4 
I LBDC KPO 849 6 
ILBDC LKO 56 2 
ILBDCiSoO 150 2 
ILBDc RDO 150 Zz 
ILBDCT10 480 3 
ILBDDAEO 344 4 
ILEDD BGO 2804 16 
ILBDDCTIO 177 5 
ILBDDI00 720 5 
ILBDD SPO 1328 9 
ILBDD SRO 334 4 
ILBCDSSO 808 7 
ILBDD UMO ; 2 2 
ILBDEFLO 524 6 
ILBDE TBO 256 4 
ILBDFLWO 1256 9 
ILBDFMTO 182 3 
ILBDF Pwo 808 5 
ILRDGDOO 160 2 
ILBDG Pw0 88 2 
ILBCIDAO 396 3 
ILBDI DEO 116 2 
ILBDIDRO 16 63 8 
ILBCIDTO 692 4 
ILBDIFBO 296 3 
ILBDI FDO 156 5 
ILBDI MLO 38 2 
ILBDINTO _ 288 4 
ILBDI SEO 480 4 
ILBDI SMO 366 3 
ILBDITBO 256 12 
ILBDIVLO 72 2 
ILBDMFTO 148 3 
ILBDMNSO 1 2 
ILBDMCVO 66 3 
ILBDMRGO 1148 8 
ILBDMVEO 224 3 
ILBDN SLO 616 5 
ILBDOCRO 1922 10 
ILBDOSYO 132 2 
ILBDRCRO 148 2 
ILBDRCDIO 408 G 
ILBDRDSO 238 3 
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Library Modules Bytes Of Virtual Storage Blocks 


ILBDRFMO 132 2 
ILBLSAEO 400 4 
ILBDSCHO 744 4 
I LBDS EMO 279 5 
ILBDS ETO 296 3 
ILBDSMV0 60 2° 
ILBDSPAO 1524 8 
ILBDS RTO 3720 18 
ILBDS TRO 80 3 
ILBDS SNO 300 3 
ILBDSTIO 596 4 
ILBDSINO 1736 8 
ILBDTCO0 1168 7 
ILBDTC20 500 3. 
ILBOTC30 4217 19 
ILBDTEFO 600 6 
ILBDTODO 200 2 
ILBDT RNO 256 2 
ILBDU PSO 108 2 
ILBDU SLO 365 3 
ILBDVBLO 314 4 
ILBDVCOO 512 3 
ILBDV 100 4658 20 
I LBDVMOO 468 4 
ILBDVOCO 4276 18 
ILBDVTRO 138 2 
ILBDWTBO 256 3 
ILBDXDIO 273 3 
ILBDX MUO 184 2 
ILBDX PRO 608 6 
ILBDXTNO 288 2 


I0ocS Modules 


Needed when the ASCII Support Feature is used. 


IJFXBZZN 
LJFXBZZZ 
LIF XZ2ZZZ 
IJFNZ ZZN 
IJFNZ2ZZZ 
LJFRZZZN 
LUFRZ2Z2ZZ 
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> 


DIAGNOSTIC MESSAGES 


This section describes diagnostic messages issued in connection with the 
DOS/VS Compiler and Subroutine Library. They are grouped as follows: 


e Compile-time messages from the compiler concerning the compilation 
of the source program, @€.g., syntax. 


® Operator messages from the compiler concerning conditions that 
inhibit its functioning, e.g., too small a partition. 


e Object-time messages issued by the object program itself that are 
numbered. 


e Object-time messages that are not numbered. 


This section should be used with the publication DOS/VS Messaqes. 


COMPILE-TIME MESSAGES 


A complete listing of all the error messages produced by the compiler 
can be obtained by compiling a program with a PROGRAM-ID of ERRMSG. The 
listing consists of: 
e Compiler identification and level 
e Brief description of the remainder of the listing 
e Description of listing conventions 
e Acticn codes and meanings 
e General procedure in recurring problem situations 
e Error messages in the following format: 
-- Message number 
-~- Severity level 


-- Action code 


-- Message text 
OPERATOR MESSAGES 
The following messages are issued during compilation on SYSLOG. They 
are also printed on SYSLST with the prefix ILA. 


C100I PARTITION IS LESS THAN 60K. 


Explanation: At least 60K is required to compile using DOS/VS 
COBOL. Prokable user error. 


System Action: The compilation is terminated. 


Diagnostic Messages 65 


c101r 


C1021 


C1031 


Operator Response: Make sure the compiler has at least 60K 
available to it. If the problem recurs, do the following to 
complete your problem determination action before calling IBM for 
programming support: 


1. Execute the MAP command and save the output. 


2. Have the source deck, control cards, output listing, and 
console sheet available. 


DEVICE NOT ASSIGNED - SyYSnnn. 


Explanation: (nnn is either 001, 002, 003, or 004.) The 
specified logical unit is unassigned and must be assigned. 
Probable user error. 


System Action: The compilation is terminated. 


Operator Response: Use the ASSGN command to assign a physical 
unit (magnetic tape or disk) to the file indicated. If the 
problem recurs, do the following to complete your problem 
determination action before calling IBM for programming support: 


1. Execute the LISTIO command and save the output. 


2. Have the source deck, control cards, output listing, and 
console sheet available. 


UNSUPPORTED DEVICE TYPE - SYSnnn. 


Explanation: (nnn is either 001, 002, 003, or 004.) The 
specified file must be a tape or aisk file for SYSO02 through 
SYS004. SYS001 should be assigned to disk; however, in small, 
Simple programs that do not require dictionary spill, it is 
sometimes possible to compile with the spiil file (SYS001) 
assigned to tape. If any spill does occur, an input/output error 
may occur. Compile-time statistics will say "DICTIONARY SPILL 
HAS OCCUKRED". No mention is made of dictionary spill in the 
compile-time statistics if spill does not occur. robable user 
error. 


Svstem Action: The compilation is terminated. 


Operator Response: Use the ASSGN command to assign the 


appropriate physical unit to the file indicated -- SYS001 should 
be assigned to a magnetic tape or disk unit. If the problem 
recurs, Go the following to complete your problem determination 
action before calling IBM for programming support: 

1. Execute the LISTIO command and save the output. 


2. Have the source deck, control cards, output listing, and 
conscle sheet available. 


END OF FILE ON SYSIPT. 


Explanation: End-of-file was encountered in the initialization 
phase; no source statements were found. Probable user error. 


System Action: The compilation is terminated. 


Operator Response: Ensure that a /* card does not precede the 
source deck, or add the source deck to the job stream. If the 
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C1041 


C1051 


C1061 


problem recurs, do the following to complete your problem - 
determination action before calling IBM for programming support: 


1. Execute the LISTIO command and save the output. 


2. Have the source deck, control cards, output listing, and 
console sheet available. 


SYS001 FILE NOT ASSIGNED TO DISK 


Explanation: In small, simple programs that do not require 
dictionary spill, it is sometimes possible to compile with the 
Spill file (SYS001) assigned to tape. However, if any spill does 
occur, an input/output error may occur. Any compilation which 
Spills the dictionary will contain a message in compile-time 
statistics, User error. 


System Action: The compilation continues. 
Operator Response: Use the ASSGN command to assign SYS001 to a 
disk unit. If the problem recurs, do the following to complete 
your problem determination action before calling IBM tor 
programming support: 

1. Execute the LISTIO command and save the output. 


2. Have the source deck, control cards, output listing, and 
console sheet available. 


W-CANNOT OPEN SYS005 -~- SYMDMP IGNORED. 

Explanation: The SYMDMP option has been specified, but the file 
needed for symbolic debug cannot be opened since SYS005 is 
unassigned. Probable user error. 


System Action: The SYSDMP option is canceled, and the 
compilation continues. 


Operator Response: Use the ASSGN command to assign SYS005 to a 
physical unit. If the problem recurs, do the following to 
complete your problem determination before calling IBM for 
programming support: 

1. Execute the LISTIO command and save the output. 


2. Have the source deck, control cards, output listing, and 
console sheet available. 


S¥S006 IS NOT A DISK. NOLVL ASSUMED. 


Explanation: The specified logical unit is not assigned to a 
disk. 


System Action: Compilation continues with NOLVL. 


Operator Response: Use the ASSGN command to assign SYS006 to a 
disk unit. 
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NUMBERED OBJECT-TIME MESSAGES 
The following messages are normally issued on SYSLOG. 
C110A STOP literal 
Explanation: The programmer has issued a STOP literal statement 
in the DOS/VS COBOL source program. 
System Action: Awaits operator response. 


Programmer Response: Not applicable. 
Operator Response: Respond with end-of-block, or with any 


Cnaracter in order to proceed with the program. 
C111A AWAITING REPLY 


Explanation: This message is issued in connection with the 
DCS/VS COBOL ACCEPT statement. 


System Action: Awaits operator response, 
Programmer Response: Provide the operator with instructions. 
Operator Response: Reply as specified by the programmer. 

The following messages are issued on SYSLOG and SYSLST prior to 
cancellation of the job. If the DUMP option is specified, a partial 
dump is taken from the problem program origin to the highest virtual 
location of the last phase loaded. When this occurs, the eight bytes 
immediately preceding the DTF are destroyed. The messages have the 
form: 


CmmmI SYSnnn filename DTFaddress text 


whe re: 
mmm and text correspond as follows: 


mmm text 

112 DATA CHECK 

P13 WRONG LENGTH RECORD 

114 PRIME DATA AREA FULL 

115. CYLINDER INDEX TOO SMALL 

116 MASTER INDEX TOO SMALL 

117 OVERFLOW AREA FULL 

118 DATA CHECK IN COUNT 

119 DATA CHECK IN KEY OR DATA 

120 NO ROOM FOUND 

121 DASD ERROR 

122 DASD ERROR WHILE ATTEMPTING 
TO WRITE RECORD ZERO 

123 FILE CANNOT BE OPENED AFTER 
CLOSE WITH LOCK 

124 CYLINDER AND MASTER INDEX TOO SMALL 


mnn is equal to 001 through ‘255 

filename is seven or fewer characters and is generated from 
the file-name specified in the SELECT sentence. 

address is the hexadecimal address of the file's DTF table 
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c1251 


Explanation: Condition indicated occurred on SySnnn. 
System Action: The job is canceled. 


Programmer Response: Rerun the job or add a user Declarative 
Section to the Procedure Division of the source program to handle 
errors within the program. 


If the recurs, do the following problem before calling IBM tor 


programming support: have source deck, control cards, compiler 
output, and console sheet available. 


Operator Response: Not applicable. 
NO EXTENTS 


Expianation: During CLOSE UNIT processing, no extent is found 
for the next volume. 


System Action: The job is canceled. 


Programmer Response: Rerun job with proper EXTENT (XTENT) 
statements. 


If the problem recurs, do the following to complete your 
problem determination action before calling IBM for programming 
Support: have source deck, control cards, compiler output, and 
console sheet available. 


Operator Response: Not applicable. 


The following message is issued on SYSLOG: 


C126D 


SySnnn IS IT EOF? 
where nnn is equal to 001 through 255 


Explanation: A tapemark was just read on an unlabeled tape file 
described at compilation time as having more than one reel. 


System Action: Awaits response from operator. 


Programmer Response: Not applicable. 


Operator Response: Respond with N if it is end of volume, or 
with Y if it is end of file. 


The following messages are issued on SYSLOG and SYSLST: 


C1i27D NO EOF RECORD WRITTEN IN PRIME DATA AREA 


Explanation: During CLOSE processing of an ISAM file opened 
OUTPUT, no room was found to write an EOF record. 


Programmer Response: Rerun the job with the proper EXTENT. 
If the problem recurs, do the foilowing betore calling IBM for 


programming support: have source deck, control cards, compiler 
output, and console sheet available. 


Operator Response: Not applicable. 
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C128D UNRECOVERABLE 1/0 ERROR 


C1301 


C1311 


c1401I 


Explanation: This is probably a hardware error on tape. 


Programmer Response: Not applicable. 


Operator Response: Rerun the job. 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, compiler 
Output, and console sheet available. 


INPUT/OUTPUT ERROR. FILE STATUS SET TO xx NEAR REL LOC. XxXxxxx. 


Explanation: An I/O error has occurred on the file being 
accessed by the COBOL statement at or near the relative location 
given in the message, and the user has no USE declarative for 
that file. 


Action: Control returns to COBOL at the statement following the 
COBOL request that caused the error. 


Programmer Response: If the error occurred on a READ operation, 
processing can continue. If the error occurred on a WRITE 
operation, there may be a loss of data. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


UNABLE TO OPEN FILE 'SYSnnn'. CANCELING. 


Explanation: The VSAM OPEN or CLOSE request gave a return code 


of X*'68* or X'6C' because of invalid time stamps in the VSAM 
catalcg or VSAM file. The VSAM catalog or file should be 
recreated. See DOS/VS Supervisor and I/O Macros for more detail 


on the OPEN/CLOSE return codes. 
Action: The job is canceled. 
Programmer Response: Recreate the VSAM catalog and/or file. 

If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


INVALID SEPARATE SIGN CONFIGURATION 


Explanation: During execution of a COBOL program, an invalid 
Sign was detected for a separately signed item. 


Action: The job is terminated. 


Programmer Response: Probable user error. Correct program's 
input data before reexecuting. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, compiler 
output, and data available. 
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The following messages (C150I-C175I) are listed on SYSLST. The 
messages have the form: 


program-id 
Cmmami text 


card/verb number 


Messages C150I through C162I may appear interspersed among the SYMDMP 
control cards at the point at which the error is encountered. 
Program-id is provided for alli messages except C150I through C152I. For 
these, the card/verb number of the corresponding line-control card is 
given instead. The program-id associated with C150I through C152I can 
be determined from the nearest preceding program-control card. 


Messages C153I through C155I may also appear in the midst otf the dump 
Output if the error condition is not recognized until dumping has 
started. 


Message C171I may appear interspersed with the SYSLST output. It is 
preceded by the progran-id for the program affected. 


Message C172I may appear just before the start of execution 
statistics printing. It applies to the entire run unit. 


C150I ICENTIFIER NOT FOUND. 


Explanation: An identifier specified on the line-control card 
cannot be found in the program or is invalid. Level-66 and 
level-88 items ard items defined under an RD are invalid 
requests. 


Action: The dump request for this identifier is ignored. 


Programmer Response: Probable user error. Before reexecuting, 
ensure that no requests have been made on the line-control card 
for the dumping of identifiers that have not been detined or that 


are invalid. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
campiler output available. 


C151I CARD NUMBER NOT FOUND 


Explanation: The card rumber specified on the line-control card 
is not within range of the Procedure Division. 


Actions The line-control card which specifies the nonexistent 
card number is skipped. 


Programmer Response: Probable user error. Ensure that any card 
number specified on a line-control card is within range of 
numbers specified for source program before reexecuting. 

If the problem recurs, do the following before calling IBM for 
programming support: have the source deck, control cards, and 
compiler output available. 

C152I VERB NUMBER NOT FOUND 


Explanation: The verb number specified on a line-control card 
does not exist on the card specified. 


Action: The nearest verb number on the card specified is used. 
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C1531 


C154 


C1551 


compiler output available. 


Programmer Response: Probable user error. Correct verb number 
specification before reexecuting. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


NC ROOM TO DUMP. 


Explanation: If this message immediately follows-a 
program-control card, sufficient storage is not available for the 
debug subroutine or for the 72 bytes of data required for eacn 
program in the run unit. If this message follows an abnormal 
termination message, one cr more of the following is not 
available in free storage or in the COBOL Procedure Division: a 
contiguous block of 4000 bytes, a contiguous block of 1800 bytes, 
Or a contiguous block of 512 bytes. 


Action: No Data Division dump for the indicated program and, in 
some instances, no statement number information, is provided. 


Programmer Response: Probable user error. Increase the size of 
the partition before reexecuting. See "Symbolic Debug 


‘Considerations" for infcrmation about storage requirements for 


symbolic debugging. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


I/O ERROR ON DEBUG FILE. 


Explanation: An input/cutput error has occurred on the debug 
file. Note that such an error may be the result of a file other 
than the debug file being mounted on the logical unit specified. 


Action: SYMDMP output is cancelled for the indicated program. 


Response: Hardware, operator, or user JCL error. Before 
reexecuting, check logical unit number specified on 
program-control card against current mounting, as well as the 
ASSGN, DCLBL, and EXTENT cards of compilation. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


WRONG DEBUG FILE FOR PROGRAM. 


Explanation: The file corresponding to the filename and/or 
logical unit number provided on the program-control card is not 
the debug file created for this program at compile time. 


Action: SYMDMP output is cancelled for the indicated program. 


Programmer Response: Probable user error. Before reexecuting, 
ensure that the filename and/or logical unit specified on the 
program-control card COEE Ce pond to that of the debug file 
created at compile time. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
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C1561 


C1571 


C1581 


C1592 


NC ROOM FOR DYNAMIC DUMP. 


Explanation: Sufficient storage is not available to s*ore the 
line-control card information during execution. 


Action: Dynamic dumping is cancelled for the indicated program. 


Program Response: Probabie user error. Increase size ot 
partition or decrease number of line-control cards betore 
reexecuting. 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 


INVALID FILENAME. 


Explanation: If the "filename" parameter is specified ror a disk 
file on the CBL card at compile time, the same "filename" must 
also be specified on the program-control card. "Filename" may be 
from one to seven characters in length; the first character must 
be a letter. 


Action: All SYMDMP output is cancelled for the indicated 
program. 


Programmer Response: Probable user error. Correct "tilename" 
specification on the program-control card betore reexecuting. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
ccmpiler output available. 


INVALID LCGICAL UNIT. 


Explanation: The logical unit parameter on the progran-control 
card must be specified, must be an integer between 0 and 244, ana 
must match the one specified in the ASSGN control statement for 
the debug at compile time. 


Action: All SYMDMP output is cancelled for the indicated 


program. 


Programmer Response: Probable user error. Correct logical unit 
Specification on program-control card before reexecuting. 


. If the problem recurs, do the following berore calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


MISSING PARAMETERS. 


Explanation: A non-continued line-control card ends with HEX, 
OF, IN, Ox THRU. Possibly a continuation punch is missing in 
column 72. 


Action: A HEX or THRU option ending a card is ignored. When a 
card ends with OF or IN, the word is ignored and the identifier 
that is dumped is the first one encountered whose qualifiers 
Match those preceding the word OF or IN. 


Programmer Response: Probable user error. Check line-control 
card for keypunch errcers before reexecuting. 
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.. C160T 


C161I 


C1621 


C1631 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


INVALID OPTION. 


Explanation: An element used as an optional parameter on a 
program-control card is not one of the legal program-control card 
Options. 


Action: The element is ignored. 


Programmer Response: Probable user error. Correct syntax of 
program-control card before reexecuting. ; 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 


SUBSCRIPTING ILLEGAL. 


Explanation: The “name" parameter of the line-control card may 
nct be subscripted. 


Action: The subscripts are ignored. Every occurrence of the 
laentifier is dumped. 


Programmer Response: Probable user error. Specify the name of 
the item without the subscripts before reexecuting. This will 
result in a dump of every occurrence of the item. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


ON PARAMETER TOO BIG. 


Explanation: Neither the n, m, nor k parameter of the ON option 
May exceed 32767. 


Action: The number is reduced to 32767. 


Programmer Response: Probable user error. Correct invalid 
parameter before reexecuting. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


FLOW TRACE NON-CONTIGUOUS. MORE THAN 10 PROGRAMS ENCOUNTERED 


Explanation: A non-contiguous flow trace will result if FLOW 
Option is effective in a subprogram structure ot more than 10 
programs compiled with the FLOW option. 


Action: The FLOW is terminated upon encountering the eleventh 
PROGRAM-ID. Tracing resumes only upon returning to one of the 
Original tem programs. . 


Programmer Response: Probable user error. If trace is absent 
for a program where it is critical, recompile one or more of the 
programs where the flow is non-critical without the FLOW option. 
and reexecute. . 
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C1641 


C1651 


C1691 


C1701 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
compiler output available. 


FLOW TRACE IN EFFECT BUT NO PROCEDURES TRACED. 


Explanation: Abnormal termination has taken place betore any 
COBOL statement with a procedure-name has been traced. 


Action: No tracing is done. 


Programmer Response: Probable user error. If trace is desired, 
recompile the program after inserting additional procedure-names. 


If the problem recurs, do the following before calling IBM tor 
programming support: have source deck, control cards, and 
ccmpiler output available. 


S YMDMP/STATE/FLOW/COUNT INTERNAL ERROR. EXECUTION CANCELLED. 


Explanation: Abnormal termination occurred during execution of 
one of the debugging subroutines. 


Action: The job is cancelled. 
Programmer Response: Internal logic error. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
ccmpiler output available. 


STATE OPTION CANCELLED. 


Explanation: Compiler or logic error has occurred during STATE 
Option processing. Under certain conditions, this error may 
result from other user errors. For example, a loop might destroy 
some of the informaticn required by the STATE subroutines; an 
invalid branch might cause a non-existent priority-number to be 
stored in the TGT, etc. 


Action: STATE output is cancelled. 

Programmer Response: Probable user error. Possible compiler 
error or user error. Correct other known errors (if any) before 
attempting reexecution. 


If the probiem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
canpiler output available. 


INVALID ADDRESS. 

Explanation: The address calculated for a subscripted 
identifier, or a starting or ending address of a variable-length 
identifier used as the receiving field in a MOVE statement is 
invalid. 

Action: A symbolic dump is produced. 

Programmer Response: Probable user error. Possible compiler 


error or user error. Correct other known errors (if any) before 
attempting reexecution. 
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PETTITT Tete nt eet 


C1711 


C1721 


C1731 


C1751 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


SPACE NOT FOUND FOR THE COUNT CHAIN. CONTINUING. 


Explanation: A GETVIS macro was unsuccessful due to lack of 
space. 


Action: Execution continues without providing execution 
Statistics for the last indicated program unit. 


Programmer Response: Probable user error. Allocate more space 
on EXEC card before attempting reexecution. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. an 
SPACE NOT FOUND FOR THE VERBSUM TABLE. CONTINUING. 


Explanation: A GETVIS macro was unsuccessful due to lack of | 
Space. \ 


Action: Execution continues without providing verb summary 
statistics for the program. 


Programmer Response: Probable user error. Allocate more space 
On EXEC card before attempting reexecution. 


If the problem recurs, do the following before calling IBM for 
programming Support: have source deck, control cards, and 
compiler output available. 

FREEVIS FAILED. EXECUTION CANCELLED. 
Explanation: A FREEVIS macro was unsuccessful. 


Action: Execution is terminated. 


Programmer Response: Probable user error. Allocate more space 
On EXEC card before attempting reexecution. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 


INVALID COUNT TABLE ENTRY. EXECUTION CANCELLED. 


Explanation: A count table entry in the object module is not one 
of the following: end-of-table indicator, procedure-id, or 
verb-id. 


Action: Execution is terminated. 


Programmer Response: Probable user error. Possible compiler or ' 
user error. Check your program for routines that may have moved 
data into the count table area. Correct other known errors (if 
any) before attempting execution. 


If the problem recurs, do the following before calling IBM for 
programming support: have source deck, control cards, and 
compiler output available. 
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UNNUMBERED OBJECT-TIME MESSAGES 


XXXeeo 


Explanation: This message is written on the console and is 
recognizable because it is not preceded by a message code and 
action indicator. It is issued by an object program originally 
coded in COBOL. The message text is supplied by the object 
program and may indicate alternative action to be taken. 


System Action: The job continues. 


Operator Response: Operator response, if any is needed, is 
determined by the message text. 
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STATE option and 32 
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Of 37,38 
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apostrophe, APOST option and 30 
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ASCII collatina sequence support 

ASCII parameter required 27 

IocS modules required 63 

Sort/Merge program required 7 
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BUF option (CBL statement) 
described 29 
format 29 
virtual storage required when 
specified 59 
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described 33 
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changing the installation defaults 
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described 30 
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suppression by SUPMAP option 29 
SYNTAX option affect on 31 
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CMS considerations 
background partition supported 12 
device support 8,11 
execution time requirements 5,12 
installation defaults and 28 
installation requirements 5,11 
-link editing and 47 
LIocs modules and 14 


27-34 


LST statement not supported 28 
machine configuration 11 
private library access 8 
separate library not needed 5 
SYSLNK not supported 11 
system requirements 7,8 
work file requirements 12 
3886 not supported 44 
| comparisons, signed decimal to alphameric: 
ZWB/NOZWB option affect on 31 
compiler . 
CBL statement options (for more detailed 
references, use individual option name 


elsewhere) 
default values, changing 28-34 
described 28-34 
formats 29 
mutually exclusive 34 
Significant characters 29,35 


listing 
condensed, specified by CLIST 
option 30 
SPACEn option effect on 29,30 
phases 
blocks required on core image 
library 59 
blocks reguired on relocatable 
library 61 
listed 59-60 
system options controlling 
compiler and library 
contents 5 
installation from disk 
core image library 
installation 50-51 
installation volume contents 49 
relocatable library 
installation 49-50 
sample program, using 
3886 considerations 
installation from tape 
core image library 
installation 41-43 
installation volume contents 40 
relocatable library 


27, 28 


52,53 
53,54 


installation 40-41 
sample program, using 43-44 
3886 considerations 44-45 


storage required 59-63 
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condensed listing, compiler, specified by 
CLIST option 30 
contents of DOS/VS COBOL compiler and 
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COPYPCH/NOCOPYPCH option (LST 
Statement) 34 
core image library 
cataloging compiler and library into 
‘ disk 50-51 
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tape 47-48 

private library: 

restriction 39 
storage required 
transients, and 


partition assignment 


for compiler, 
library phases 59 


COUNT/NOCOUNT option (CBL statement) 


described 33 

format 29 

installation parameter required 27 

STXIT/NOSTXIT option, restrictions when 
used with 33 

SYNTAX option effect on 31 

‘VERB/NOVERB option, effect on 33 

virtual storage required 9 


cross-reference list, sorted: options 
affecting 31 

CSYNTAX/ SYNTAX/NOSYNTAX option (CBL 
statement) statement) 


CLIST option, effect on 31 
described 31 
format 29 

LINK option, 


LISTX option, 


effect on 31 
effect on 31 


DAMOD module names 17 
deblocking files 


compiler and library 


disk 49-50 
tape 40-41 
library only 
Gisk 55-56 
tape 46 


debug (see SYMDMP option). 
DECK option (OPTION statement) 


suppressed by SUPMAP option 29 
SYNTAX option affect on 31 


DECK/NODECK option (LST statement) 34 
AJefault values of CBL statenent options, 


changing 


28-34 


devices > 


assignment in partitions 40 
compiler use 8-9 

Sort/Merge program requirements 
storage requirements for 59 
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errors 30 


9-10 
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compile-time 65-67 
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Operator . 65-77 
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relocatable library 49-50 
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3886 considerations 53,54 
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core image library 56-58. 


installation volume contents 55 
relocatable library 55-56 


disk units, 


DUMOD module names 18 
dumps, execution-times: 
for 32,29 


SYMDMP option 


error messages (see diagnostic messages) 
errors 
input/output, STIXIT option and 30 
Syntax: SYNTAX option affect on 31 
execution statistics: virtual storage 
required 9 
execution-time considerations 9 
execution-time CMS requirements 5,12 


Federal Information Processing Standard 
(see FIPS) 
filenames (work files) 8 


files, deblocking 
compiler and library 
Gdisk 49-50 
tape 41-43 
library separately 
disk 55-56 
tape 46 
files, system: installation parameter 
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files, work (see work files) 
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considerations 11 
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work files 
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contents 13 
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described 29 
format 29 
FLOW option (CBL statement) 
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described 32 
format 29 
installation parameter required 27 
OPTIMIZE option and 32 
STIXIT option and 30 


ement) 


work file allocations to 12- 
|DRMCD names 18 


13 


30 


FOPT macro instruction, parameters required 


for 27 
foreground 
installation considerations 35-40 
parameters for specifying compiler 
execution 27 


formatted trace, FLOW option for 32 


global table: 
listing 30 


CLIST option specifies in 


IJIJCPVD2, unresolved reference to 48,58 
installation defaults and CMS 28 
installation procedure 
changing option defaults 28,34 
compiler and library 
disk 49-54 
tape 40-45 
foreground considerations 35-40 


installation volume contents 
compiler and library on disk 49 
compiler and library on tape 40 
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Tocs modules 
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labels, partition standard, creating 
background 36 
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core image 
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on 41-43,50-52 
cataloging object-time subroutine 
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installation parameters governing 
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relocatable library 55,56 
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relocatable library 46 
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private : 
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sample job for assianing in 
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source statement, sample job for 
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described 33 
format 29 
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link editing and CMS 47 
LINK option (OPTION statement) 
SYNTAX option effect on 31 
SYSLNK file and 8 
LIOCS modules and CMS 14 
lister feature: compiler phase 
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SUPMAP option suppresses 29 
SYNTAX option effect on 31 
VERB option and 33 
listing, compiler output 
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description 28,34-35 
significant characters in options 35 
LSTONLY/LSTCOMP option (LST 
Statement) 34,35 
LVL option (CBL statement) 
described 30 
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machine configuration 
for CMS 11,12 
for DOS/VS 8 
macro instruction parameters required for 
DOS/VS compiler and librarv 
installation 27 
messages, Giagnostic (see diagnostic 
messages) 
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LST statement 
description 
format 34 
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system 27 


28,34 


34-35 
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device assignment 40 
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creating for foreground 38 
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compiler and library from disk 52 
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relocatable library 
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core image library 59 
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listed 59 
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described 31 
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preparing the DOS/VS system 
libraries 26,27 
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DOS/VS compiler and library added to 26 
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disk 49 
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and 31 
separate library installation trom disk 
core image library 56-58 
installation volume contents 55 
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OPTIMIZE option and 32 
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SUPMAP/NOSUPMAP option (CBL statement) 
described 29 
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SYNTAX option affect on 31 
symbolic debug considerations (see SYMDMP 
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